\left(-x \cdot \frac{1}{\tan B}\right) + \frac{1}{\sin B}\frac{\frac{\tan B}{\sin B} - x}{\tan B}double f(double B, double x) {
double r668684 = x;
double r668685 = 1.0;
double r668686 = B;
double r668687 = tan(r668686);
double r668688 = r668685 / r668687;
double r668689 = r668684 * r668688;
double r668690 = -r668689;
double r668691 = sin(r668686);
double r668692 = r668685 / r668691;
double r668693 = r668690 + r668692;
return r668693;
}
double f(double B, double x) {
double r668694 = B;
double r668695 = tan(r668694);
double r668696 = sin(r668694);
double r668697 = r668695 / r668696;
double r668698 = x;
double r668699 = r668697 - r668698;
double r668700 = r668699 / r668695;
return r668700;
}



Bits error versus B



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