\sqrt{\frac{1}{2} \cdot \left(1 + \frac{1}{\sqrt{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)}}\right)}\sqrt{\frac{1}{2} \cdot \left(1 + \frac{1}{\sqrt{1 + \left({\left(\frac{2 \cdot \ell}{Om}\right)}^{\left(\frac{2}{2}\right)} \cdot \sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}\right) \cdot \left({\left(\frac{2 \cdot \ell}{Om}\right)}^{\left(\frac{2}{2}\right)} \cdot \sqrt{{\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}}\right)}}\right)}double f(double l, double Om, double kx, double ky) {
double r45681 = 1.0;
double r45682 = 2.0;
double r45683 = r45681 / r45682;
double r45684 = l;
double r45685 = r45682 * r45684;
double r45686 = Om;
double r45687 = r45685 / r45686;
double r45688 = pow(r45687, r45682);
double r45689 = kx;
double r45690 = sin(r45689);
double r45691 = pow(r45690, r45682);
double r45692 = ky;
double r45693 = sin(r45692);
double r45694 = pow(r45693, r45682);
double r45695 = r45691 + r45694;
double r45696 = r45688 * r45695;
double r45697 = r45681 + r45696;
double r45698 = sqrt(r45697);
double r45699 = r45681 / r45698;
double r45700 = r45681 + r45699;
double r45701 = r45683 * r45700;
double r45702 = sqrt(r45701);
return r45702;
}
double f(double l, double Om, double kx, double ky) {
double r45703 = 1.0;
double r45704 = 2.0;
double r45705 = r45703 / r45704;
double r45706 = l;
double r45707 = r45704 * r45706;
double r45708 = Om;
double r45709 = r45707 / r45708;
double r45710 = 2.0;
double r45711 = r45704 / r45710;
double r45712 = pow(r45709, r45711);
double r45713 = kx;
double r45714 = sin(r45713);
double r45715 = pow(r45714, r45704);
double r45716 = ky;
double r45717 = sin(r45716);
double r45718 = pow(r45717, r45704);
double r45719 = r45715 + r45718;
double r45720 = sqrt(r45719);
double r45721 = r45712 * r45720;
double r45722 = r45721 * r45721;
double r45723 = r45703 + r45722;
double r45724 = sqrt(r45723);
double r45725 = r45703 / r45724;
double r45726 = r45703 + r45725;
double r45727 = r45705 * r45726;
double r45728 = sqrt(r45727);
return r45728;
}



Bits error versus l



Bits error versus Om



Bits error versus kx



Bits error versus ky
Results
Initial program 1.7
rmApplied add-sqr-sqrt1.7
Applied sqr-pow1.7
Applied unswap-sqr1.3
Final simplification1.3
herbie shell --seed 2020027 +o rules:numerics
(FPCore (l Om kx ky)
:name "Toniolo and Linder, Equation (3a)"
:precision binary64
(sqrt (* (/ 1 2) (+ 1 (/ 1 (sqrt (+ 1 (* (pow (/ (* 2 l) Om) 2) (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))