\left(-x \cdot \frac{1}{\tan B}\right) + \frac{1}{\sin B}\frac{1}{\sin B} - \frac{x}{\sin B} \cdot \cos Bdouble f(double B, double x) {
double r513525 = x;
double r513526 = 1.0;
double r513527 = B;
double r513528 = tan(r513527);
double r513529 = r513526 / r513528;
double r513530 = r513525 * r513529;
double r513531 = -r513530;
double r513532 = sin(r513527);
double r513533 = r513526 / r513532;
double r513534 = r513531 + r513533;
return r513534;
}
double f(double B, double x) {
double r513535 = 1.0;
double r513536 = B;
double r513537 = sin(r513536);
double r513538 = r513535 / r513537;
double r513539 = x;
double r513540 = r513539 / r513537;
double r513541 = cos(r513536);
double r513542 = r513540 * r513541;
double r513543 = r513538 - r513542;
return r513543;
}



Bits error versus B



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