r \cdot \frac{\sin b}{\cos \left(a + b\right)}r \cdot \frac{\sin b}{\cos b \cdot \cos a - \sin a \cdot \sin b}double f(double r, double a, double b) {
double r16334 = r;
double r16335 = b;
double r16336 = sin(r16335);
double r16337 = a;
double r16338 = r16337 + r16335;
double r16339 = cos(r16338);
double r16340 = r16336 / r16339;
double r16341 = r16334 * r16340;
return r16341;
}
double f(double r, double a, double b) {
double r16342 = r;
double r16343 = b;
double r16344 = sin(r16343);
double r16345 = cos(r16343);
double r16346 = a;
double r16347 = cos(r16346);
double r16348 = r16345 * r16347;
double r16349 = sin(r16346);
double r16350 = r16349 * r16344;
double r16351 = r16348 - r16350;
double r16352 = r16344 / r16351;
double r16353 = r16342 * r16352;
return r16353;
}



Bits error versus r



Bits error versus a



Bits error versus b
Results
Initial program 15.4
rmApplied cos-sum0.3
rmApplied associate-*r/0.3
rmApplied add-cbrt-cube0.4
Applied add-cbrt-cube0.4
Applied cbrt-unprod0.4
Simplified0.4
rmApplied *-un-lft-identity0.4
Applied times-frac0.4
Simplified0.4
Simplified0.3
Final simplification0.3
herbie shell --seed 2020033
(FPCore (r a b)
:name "r*sin(b)/cos(a+b), B"
:precision binary64
(* r (/ (sin b) (cos (+ a b)))))