\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th \cdot {a2}^{2}}{\sqrt{2}}double f(double a1, double a2, double th) {
double r75777 = th;
double r75778 = cos(r75777);
double r75779 = 2.0;
double r75780 = sqrt(r75779);
double r75781 = r75778 / r75780;
double r75782 = a1;
double r75783 = r75782 * r75782;
double r75784 = r75781 * r75783;
double r75785 = a2;
double r75786 = r75785 * r75785;
double r75787 = r75781 * r75786;
double r75788 = r75784 + r75787;
return r75788;
}
double f(double a1, double a2, double th) {
double r75789 = th;
double r75790 = cos(r75789);
double r75791 = 2.0;
double r75792 = sqrt(r75791);
double r75793 = r75790 / r75792;
double r75794 = a1;
double r75795 = r75794 * r75794;
double r75796 = r75793 * r75795;
double r75797 = a2;
double r75798 = 2.0;
double r75799 = pow(r75797, r75798);
double r75800 = r75790 * r75799;
double r75801 = r75800 / r75792;
double r75802 = r75796 + r75801;
return r75802;
}



Bits error versus a1



Bits error versus a2



Bits error versus th
Results
Initial program 0.5
rmApplied div-inv0.5
Applied associate-*l*0.6
Simplified0.5
rmApplied associate-*r/0.5
Final simplification0.5
herbie shell --seed 2019212
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
:precision binary64
(+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))))