\left(-x \cdot \frac{1}{\tan B}\right) + \frac{1}{\sin B}\frac{1}{\sin B} - \frac{x \cdot 1}{\tan B}double f(double B, double x) {
double r34079 = x;
double r34080 = 1.0;
double r34081 = B;
double r34082 = tan(r34081);
double r34083 = r34080 / r34082;
double r34084 = r34079 * r34083;
double r34085 = -r34084;
double r34086 = sin(r34081);
double r34087 = r34080 / r34086;
double r34088 = r34085 + r34087;
return r34088;
}
double f(double B, double x) {
double r34089 = 1.0;
double r34090 = B;
double r34091 = sin(r34090);
double r34092 = r34089 / r34091;
double r34093 = x;
double r34094 = r34093 * r34089;
double r34095 = tan(r34090);
double r34096 = r34094 / r34095;
double r34097 = r34092 - r34096;
return r34097;
}



Bits error versus B



Bits error versus x
Results
Initial program 0.2
rmApplied associate-*r/0.2
rmApplied clear-num0.2
rmApplied *-un-lft-identity0.2
Applied *-un-lft-identity0.2
Applied times-frac0.2
Applied *-un-lft-identity0.2
Applied *-un-lft-identity0.2
Applied times-frac0.2
Applied distribute-rgt-neg-in0.2
Applied distribute-lft-out0.2
Simplified0.2
Final simplification0.2
herbie shell --seed 2020064 +o rules:numerics
(FPCore (B x)
:name "VandenBroeck and Keller, Equation (24)"
:precision binary64
(+ (- (* x (/ 1 (tan B)))) (/ 1 (sin B))))