r \cdot \frac{\sin b}{\cos \left(a + b\right)}\frac{\sin b}{\frac{\cos b \cdot \cos a - \sin a \cdot \sin b}{\sin a \cdot \sin b + \cos b \cdot \cos a} \cdot \left(\sin a \cdot \sin b + \cos b \cdot \cos a\right)} \cdot rdouble f(double r, double a, double b) {
double r950723 = r;
double r950724 = b;
double r950725 = sin(r950724);
double r950726 = a;
double r950727 = r950726 + r950724;
double r950728 = cos(r950727);
double r950729 = r950725 / r950728;
double r950730 = r950723 * r950729;
return r950730;
}
double f(double r, double a, double b) {
double r950731 = b;
double r950732 = sin(r950731);
double r950733 = cos(r950731);
double r950734 = a;
double r950735 = cos(r950734);
double r950736 = r950733 * r950735;
double r950737 = sin(r950734);
double r950738 = r950737 * r950732;
double r950739 = r950736 - r950738;
double r950740 = r950738 + r950736;
double r950741 = r950739 / r950740;
double r950742 = r950741 * r950740;
double r950743 = r950732 / r950742;
double r950744 = r;
double r950745 = r950743 * r950744;
return r950745;
}



Bits error versus r



Bits error versus a



Bits error versus b
Results
Initial program 15.1
rmApplied cos-sum0.3
rmApplied flip--0.4
rmApplied *-un-lft-identity0.4
Applied difference-of-squares0.3
Applied times-frac0.3
Simplified0.3
Simplified0.3
Final simplification0.3
herbie shell --seed 2019146
(FPCore (r a b)
:name "r*sin(b)/cos(a+b), B"
(* r (/ (sin b) (cos (+ a b)))))