\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 \left(a1 \cdot \frac{a1}{\sqrt{2}}\right) + \cos th \cdot \frac{\frac{{a2}^{2}}{\sqrt[3]{\sqrt{2}} \cdot \sqrt[3]{\sqrt{2}}}}{\sqrt[3]{\sqrt{2}}}double f(double a1, double a2, double th) {
double r102324 = th;
double r102325 = cos(r102324);
double r102326 = 2.0;
double r102327 = sqrt(r102326);
double r102328 = r102325 / r102327;
double r102329 = a1;
double r102330 = r102329 * r102329;
double r102331 = r102328 * r102330;
double r102332 = a2;
double r102333 = r102332 * r102332;
double r102334 = r102328 * r102333;
double r102335 = r102331 + r102334;
return r102335;
}
double f(double a1, double a2, double th) {
double r102336 = th;
double r102337 = cos(r102336);
double r102338 = a1;
double r102339 = 2.0;
double r102340 = sqrt(r102339);
double r102341 = r102338 / r102340;
double r102342 = r102338 * r102341;
double r102343 = r102337 * r102342;
double r102344 = a2;
double r102345 = 2.0;
double r102346 = pow(r102344, r102345);
double r102347 = cbrt(r102340);
double r102348 = r102347 * r102347;
double r102349 = r102346 / r102348;
double r102350 = r102349 / r102347;
double r102351 = r102337 * r102350;
double r102352 = r102343 + r102351;
return r102352;
}



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 div-inv0.5
Applied associate-*l*0.5
Simplified0.5
rmApplied *-un-lft-identity0.5
Applied sqrt-prod0.5
Applied add-sqr-sqrt32.7
Applied unpow-prod-down32.7
Applied times-frac32.6
Simplified32.6
Simplified0.5
rmApplied add-cube-cbrt0.5
Applied associate-/r*0.5
Final simplification0.5
herbie shell --seed 2020001
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
:precision binary64
(+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))))