\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{\frac{1}{\sqrt{\sqrt{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)}}}}{\sqrt{\sqrt{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)}}}\right)}double f(double l, double Om, double kx, double ky) {
double r55097 = 1.0;
double r55098 = 2.0;
double r55099 = r55097 / r55098;
double r55100 = l;
double r55101 = r55098 * r55100;
double r55102 = Om;
double r55103 = r55101 / r55102;
double r55104 = pow(r55103, r55098);
double r55105 = kx;
double r55106 = sin(r55105);
double r55107 = pow(r55106, r55098);
double r55108 = ky;
double r55109 = sin(r55108);
double r55110 = pow(r55109, r55098);
double r55111 = r55107 + r55110;
double r55112 = r55104 * r55111;
double r55113 = r55097 + r55112;
double r55114 = sqrt(r55113);
double r55115 = r55097 / r55114;
double r55116 = r55097 + r55115;
double r55117 = r55099 * r55116;
double r55118 = sqrt(r55117);
return r55118;
}
double f(double l, double Om, double kx, double ky) {
double r55119 = 1.0;
double r55120 = 2.0;
double r55121 = r55119 / r55120;
double r55122 = l;
double r55123 = r55120 * r55122;
double r55124 = Om;
double r55125 = r55123 / r55124;
double r55126 = pow(r55125, r55120);
double r55127 = kx;
double r55128 = sin(r55127);
double r55129 = pow(r55128, r55120);
double r55130 = ky;
double r55131 = sin(r55130);
double r55132 = pow(r55131, r55120);
double r55133 = r55129 + r55132;
double r55134 = r55126 * r55133;
double r55135 = r55119 + r55134;
double r55136 = sqrt(r55135);
double r55137 = sqrt(r55136);
double r55138 = r55119 / r55137;
double r55139 = r55138 / r55137;
double r55140 = r55119 + r55139;
double r55141 = r55121 * r55140;
double r55142 = sqrt(r55141);
return r55142;
}



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 sqrt-prod1.7
Applied associate-/r*1.7
Final simplification1.7
herbie shell --seed 2020035 +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))))))))))