\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)
\left(\frac{a2}{\frac{\sqrt{2}}{a2}} + \frac{a1}{\frac{\sqrt{2}}{a1}}\right) \cdot \cos th
(FPCore (a1 a2 th) :precision binary64 (+ (* (/ (cos th) (sqrt 2.0)) (* a1 a1)) (* (/ (cos th) (sqrt 2.0)) (* a2 a2))))
(FPCore (a1 a2 th) :precision binary64 (* (+ (/ a2 (/ (sqrt 2.0) a2)) (/ a1 (/ (sqrt 2.0) a1))) (cos th)))
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 ((a2 / (sqrt(2.0) / a2)) + (a1 / (sqrt(2.0) / a1))) * cos(th);
}



Bits error versus a1



Bits error versus a2



Bits error versus th
Results
Initial program 0.5
Simplified0.5
Applied *-commutative_binary640.5
Applied add-sqr-sqrt_binary640.5
Applied associate-/l*_binary640.5
Simplified0.5
Taylor expanded in a1 around 0 0.5
Simplified0.4
Final simplification0.4
herbie shell --seed 2022077
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
:precision binary64
(+ (* (/ (cos th) (sqrt 2.0)) (* a1 a1)) (* (/ (cos th) (sqrt 2.0)) (* a2 a2))))