\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)\frac{\cos th}{\sqrt{\sqrt{\sqrt[3]{2} \cdot \sqrt[3]{2}}}} \cdot \left(\frac{\frac{1}{\sqrt{\sqrt{2}}}}{\sqrt{\sqrt{\sqrt[3]{2}}}} \cdot \left(a1 \cdot a1 + a2 \cdot a2\right)\right)double code(double a1, double a2, double th) {
return (((cos(th) / sqrt(2.0)) * (a1 * a1)) + ((cos(th) / sqrt(2.0)) * (a2 * a2)));
}
double code(double a1, double a2, double th) {
return ((cos(th) / sqrt(sqrt((cbrt(2.0) * cbrt(2.0))))) * (((1.0 / sqrt(sqrt(2.0))) / sqrt(sqrt(cbrt(2.0)))) * ((a1 * a1) + (a2 * a2))));
}



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-cube-cbrt0.6
Applied sqrt-prod0.6
Applied sqrt-prod0.6
Applied div-inv0.6
Applied times-frac0.5
Applied associate-*l*0.4
Final simplification0.4
herbie shell --seed 2020075
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
:precision binary64
(+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))))