\frac{\cos th}{\sqrt{2}} \cdot \left(a1 \cdot a1\right) + \frac{\cos th}{\sqrt{2}} \cdot \left(a2 \cdot a2\right)\left(a2 \cdot a2\right) \cdot \frac{\frac{\cos th}{\sqrt{\sqrt{2}}}}{\sqrt{\sqrt{2}}} + \left(a1 \cdot \frac{a1}{\sqrt{2}}\right) \cdot \cos thdouble f(double a1, double a2, double th) {
double r849645 = th;
double r849646 = cos(r849645);
double r849647 = 2.0;
double r849648 = sqrt(r849647);
double r849649 = r849646 / r849648;
double r849650 = a1;
double r849651 = r849650 * r849650;
double r849652 = r849649 * r849651;
double r849653 = a2;
double r849654 = r849653 * r849653;
double r849655 = r849649 * r849654;
double r849656 = r849652 + r849655;
return r849656;
}
double f(double a1, double a2, double th) {
double r849657 = a2;
double r849658 = r849657 * r849657;
double r849659 = th;
double r849660 = cos(r849659);
double r849661 = 2.0;
double r849662 = sqrt(r849661);
double r849663 = sqrt(r849662);
double r849664 = r849660 / r849663;
double r849665 = r849664 / r849663;
double r849666 = r849658 * r849665;
double r849667 = a1;
double r849668 = r849667 / r849662;
double r849669 = r849667 * r849668;
double r849670 = r849669 * r849660;
double r849671 = r849666 + r849670;
return r849671;
}



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 add-sqr-sqrt0.5
Applied sqrt-prod0.5
Applied associate-/r*0.5
Final simplification0.5
herbie shell --seed 2019153 +o rules:numerics
(FPCore (a1 a2 th)
:name "Migdal et al, Equation (64)"
(+ (* (/ (cos th) (sqrt 2)) (* a1 a1)) (* (/ (cos th) (sqrt 2)) (* a2 a2))))