\left(-x \cdot \frac{1}{\tan B}\right) + \frac{1}{\sin B}\frac{1}{\sin B} - \frac{\cos B}{\sin B} \cdot xdouble f(double B, double x) {
double r689377 = x;
double r689378 = 1.0;
double r689379 = B;
double r689380 = tan(r689379);
double r689381 = r689378 / r689380;
double r689382 = r689377 * r689381;
double r689383 = -r689382;
double r689384 = sin(r689379);
double r689385 = r689378 / r689384;
double r689386 = r689383 + r689385;
return r689386;
}
double f(double B, double x) {
double r689387 = 1.0;
double r689388 = B;
double r689389 = sin(r689388);
double r689390 = r689387 / r689389;
double r689391 = cos(r689388);
double r689392 = r689391 / r689389;
double r689393 = x;
double r689394 = r689392 * r689393;
double r689395 = r689390 - r689394;
return r689395;
}



Bits error versus B



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