\frac{\cos th}{\sqrt{2.0}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2.0}} \cdot \left(a2 \cdot a2\right)\frac{a1}{\left(\sqrt{\sqrt{2.0}} \cdot \sqrt{\sqrt{\sqrt{2.0}}}\right) \cdot \frac{\sqrt{\sqrt{\sqrt{2.0}}}}{a1}} \cdot \cos th + \frac{\frac{\cos th}{\sqrt{\sqrt{2.0}}}}{\sqrt{\sqrt{2.0}}} \cdot \left(a2 \cdot a2\right)double f(double a1, double a2, double th) {
double r2418812 = th;
double r2418813 = cos(r2418812);
double r2418814 = 2.0;
double r2418815 = sqrt(r2418814);
double r2418816 = r2418813 / r2418815;
double r2418817 = a1;
double r2418818 = r2418817 * r2418817;
double r2418819 = r2418816 * r2418818;
double r2418820 = a2;
double r2418821 = r2418820 * r2418820;
double r2418822 = r2418816 * r2418821;
double r2418823 = r2418819 + r2418822;
return r2418823;
}
double f(double a1, double a2, double th) {
double r2418824 = a1;
double r2418825 = 2.0;
double r2418826 = sqrt(r2418825);
double r2418827 = sqrt(r2418826);
double r2418828 = sqrt(r2418827);
double r2418829 = r2418827 * r2418828;
double r2418830 = r2418828 / r2418824;
double r2418831 = r2418829 * r2418830;
double r2418832 = r2418824 / r2418831;
double r2418833 = th;
double r2418834 = cos(r2418833);
double r2418835 = r2418832 * r2418834;
double r2418836 = r2418834 / r2418827;
double r2418837 = r2418836 / r2418827;
double r2418838 = a2;
double r2418839 = r2418838 * r2418838;
double r2418840 = r2418837 * r2418839;
double r2418841 = r2418835 + r2418840;
return r2418841;
}



Bits error versus a1



Bits error versus a2



Bits error versus th
Results
Initial program 0.5
rmApplied add-sqr-sqrt0.5
Applied sqrt-prod0.5
Applied associate-/r*0.5
rmApplied div-inv0.5
Applied associate-*l*0.5
Simplified0.5
rmApplied *-un-lft-identity0.5
Applied add-sqr-sqrt0.5
Applied sqrt-prod0.5
Applied times-frac0.5
Simplified0.5
rmApplied *-un-lft-identity0.5
Applied add-sqr-sqrt0.5
Applied sqrt-prod0.5
Applied sqrt-prod0.5
Applied times-frac0.5
Applied associate-*r*0.4
Simplified0.4
Final simplification0.4
herbie shell --seed 2019165
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
(+ (* (/ (cos th) (sqrt 2.0)) (* a1 a1)) (* (/ (cos th) (sqrt 2.0)) (* a2 a2))))