\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)\cos th \cdot \frac{{a1}^{2}}{\sqrt{2}} + \frac{\frac{{a2}^{2}}{\sqrt{\sqrt{\sqrt{2}}}}}{\sqrt{\sqrt{\sqrt{2}}} \cdot \frac{\sqrt{\sqrt{2}}}{\cos th}}double f(double a1, double a2, double th) {
double r117982 = th;
double r117983 = cos(r117982);
double r117984 = 2.0;
double r117985 = sqrt(r117984);
double r117986 = r117983 / r117985;
double r117987 = a1;
double r117988 = r117987 * r117987;
double r117989 = r117986 * r117988;
double r117990 = a2;
double r117991 = r117990 * r117990;
double r117992 = r117986 * r117991;
double r117993 = r117989 + r117992;
return r117993;
}
double f(double a1, double a2, double th) {
double r117994 = th;
double r117995 = cos(r117994);
double r117996 = a1;
double r117997 = 2.0;
double r117998 = pow(r117996, r117997);
double r117999 = 2.0;
double r118000 = sqrt(r117999);
double r118001 = r117998 / r118000;
double r118002 = r117995 * r118001;
double r118003 = a2;
double r118004 = pow(r118003, r117997);
double r118005 = sqrt(r118000);
double r118006 = sqrt(r118005);
double r118007 = r118004 / r118006;
double r118008 = r118005 / r117995;
double r118009 = r118006 * r118008;
double r118010 = r118007 / r118009;
double r118011 = r118002 + r118010;
return r118011;
}



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.5
Simplified0.5
rmApplied add-sqr-sqrt0.5
Applied sqrt-prod0.5
Applied associate-/r*0.5
rmApplied add-sqr-sqrt0.5
Applied sqrt-prod0.5
Applied sqrt-prod0.5
Applied add-sqr-sqrt0.5
Applied sqrt-prod0.5
Applied sqrt-prod0.5
Applied *-un-lft-identity0.5
Applied times-frac0.5
Applied times-frac0.5
Applied associate-*l*0.6
Simplified0.4
rmApplied frac-times0.4
Simplified0.5
Final simplification0.5
herbie shell --seed 2020042
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
:precision binary64
(+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))))