\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)\frac{\frac{1}{\sqrt{\sqrt{\sqrt{2}}}}}{\sqrt{\sqrt{\sqrt{2}}}} \cdot \left(\frac{\cos th}{\sqrt{\sqrt{2}}} \cdot \left(a1 \cdot a1 + a2 \cdot a2\right)\right)double f(double a1, double a2, double th) {
double r135242 = th;
double r135243 = cos(r135242);
double r135244 = 2.0;
double r135245 = sqrt(r135244);
double r135246 = r135243 / r135245;
double r135247 = a1;
double r135248 = r135247 * r135247;
double r135249 = r135246 * r135248;
double r135250 = a2;
double r135251 = r135250 * r135250;
double r135252 = r135246 * r135251;
double r135253 = r135249 + r135252;
return r135253;
}
double f(double a1, double a2, double th) {
double r135254 = 1.0;
double r135255 = 2.0;
double r135256 = sqrt(r135255);
double r135257 = sqrt(r135256);
double r135258 = sqrt(r135257);
double r135259 = r135254 / r135258;
double r135260 = r135259 / r135258;
double r135261 = th;
double r135262 = cos(r135261);
double r135263 = r135262 / r135257;
double r135264 = a1;
double r135265 = r135264 * r135264;
double r135266 = a2;
double r135267 = r135266 * r135266;
double r135268 = r135265 + r135267;
double r135269 = r135263 * r135268;
double r135270 = r135260 * r135269;
return r135270;
}



Bits error versus a1



Bits error versus a2



Bits error versus th
Results
Initial program 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.6
Applied associate-*l*0.6
Simplified0.4
Final simplification0.4
herbie shell --seed 2020020
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
:precision binary64
(+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))))