\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 r113015 = th;
double r113016 = cos(r113015);
double r113017 = 2.0;
double r113018 = sqrt(r113017);
double r113019 = r113016 / r113018;
double r113020 = a1;
double r113021 = r113020 * r113020;
double r113022 = r113019 * r113021;
double r113023 = a2;
double r113024 = r113023 * r113023;
double r113025 = r113019 * r113024;
double r113026 = r113022 + r113025;
return r113026;
}
double f(double a1, double a2, double th) {
double r113027 = th;
double r113028 = cos(r113027);
double r113029 = a1;
double r113030 = 2.0;
double r113031 = pow(r113029, r113030);
double r113032 = 2.0;
double r113033 = sqrt(r113032);
double r113034 = r113031 / r113033;
double r113035 = r113028 * r113034;
double r113036 = a2;
double r113037 = pow(r113036, r113030);
double r113038 = sqrt(r113033);
double r113039 = sqrt(r113038);
double r113040 = r113037 / r113039;
double r113041 = r113038 / r113028;
double r113042 = r113039 * r113041;
double r113043 = r113040 / r113042;
double r113044 = r113035 + r113043;
return r113044;
}



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))))