\left(-x \cdot \frac{1}{\tan B}\right) + \frac{1}{\sin B}\frac{1}{\sin B} - \frac{x \cdot \cos B}{\sin B}double f(double B, double x) {
double r1325008 = x;
double r1325009 = 1.0;
double r1325010 = B;
double r1325011 = tan(r1325010);
double r1325012 = r1325009 / r1325011;
double r1325013 = r1325008 * r1325012;
double r1325014 = -r1325013;
double r1325015 = sin(r1325010);
double r1325016 = r1325009 / r1325015;
double r1325017 = r1325014 + r1325016;
return r1325017;
}
double f(double B, double x) {
double r1325018 = 1.0;
double r1325019 = B;
double r1325020 = sin(r1325019);
double r1325021 = r1325018 / r1325020;
double r1325022 = x;
double r1325023 = cos(r1325019);
double r1325024 = r1325022 * r1325023;
double r1325025 = r1325024 / r1325020;
double r1325026 = r1325021 - r1325025;
return r1325026;
}



Bits error versus B



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