\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)\left(\cos th \cdot \sqrt{a1 \cdot a1 + a2 \cdot a2}\right) \cdot \sqrt{\frac{a1 \cdot a1 + a2 \cdot a2}{2}}(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 (* (* (cos th) (sqrt (+ (* a1 a1) (* a2 a2)))) (sqrt (/ (+ (* a1 a1) (* a2 a2)) 2.0))))
double code(double a1, double a2, double th) {
return ((double) (((double) ((((double) cos(th)) / ((double) sqrt(2.0))) * ((double) (a1 * a1)))) + ((double) ((((double) cos(th)) / ((double) sqrt(2.0))) * ((double) (a2 * a2))))));
}
double code(double a1, double a2, double th) {
return ((double) (((double) (((double) cos(th)) * ((double) sqrt(((double) (((double) (a1 * a1)) + ((double) (a2 * a2)))))))) * ((double) sqrt((((double) (((double) (a1 * a1)) + ((double) (a2 * a2)))) / 2.0)))));
}



Bits error versus a1



Bits error versus a2



Bits error versus th
Results
Initial program Error: 0.5 bits
SimplifiedError: 0.5 bits
rmApplied *-un-lft-identityError: 0.5 bits
Applied sqrt-prodError: 0.5 bits
Applied add-sqr-sqrtError: 0.5 bits
Applied times-fracError: 0.5 bits
Applied associate-*r*Error: 0.5 bits
SimplifiedError: 0.5 bits
rmApplied sqrt-undivError: 0.4 bits
Final simplificationError: 0.4 bits
herbie shell --seed 2020205
(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))))