\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)\frac{a2 \cdot a2}{\sqrt{2}} \cdot \cos th + \left(a1 \cdot \frac{a1}{\sqrt{2}}\right) \cdot \cos thdouble f(double a1, double a2, double th) {
double r1856205 = th;
double r1856206 = cos(r1856205);
double r1856207 = 2.0;
double r1856208 = sqrt(r1856207);
double r1856209 = r1856206 / r1856208;
double r1856210 = a1;
double r1856211 = r1856210 * r1856210;
double r1856212 = r1856209 * r1856211;
double r1856213 = a2;
double r1856214 = r1856213 * r1856213;
double r1856215 = r1856209 * r1856214;
double r1856216 = r1856212 + r1856215;
return r1856216;
}
double f(double a1, double a2, double th) {
double r1856217 = a2;
double r1856218 = r1856217 * r1856217;
double r1856219 = 2.0;
double r1856220 = sqrt(r1856219);
double r1856221 = r1856218 / r1856220;
double r1856222 = th;
double r1856223 = cos(r1856222);
double r1856224 = r1856221 * r1856223;
double r1856225 = a1;
double r1856226 = r1856225 / r1856220;
double r1856227 = r1856225 * r1856226;
double r1856228 = r1856227 * r1856223;
double r1856229 = r1856224 + r1856228;
return r1856229;
}



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 add-sqr-sqrt32.1
Applied *-un-lft-identity32.1
Applied sqrt-prod32.1
Applied times-frac32.1
Applied add-sqr-sqrt32.2
Applied times-frac32.2
Simplified32.1
Simplified0.5
Final simplification0.5
herbie shell --seed 2019172 +o rules:numerics
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
(+ (* (/ (cos th) (sqrt 2.0)) (* a1 a1)) (* (/ (cos th) (sqrt 2.0)) (* a2 a2))))