\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)}\begin{array}{l}
\mathbf{if}\;\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)}} \le 0.999519675329676:\\
\;\;\;\;\sqrt{\frac{1}{2} \cdot \left(1 + \left(2 \cdot \log \left(\sqrt[3]{e^{\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) + \log \left(\sqrt[3]{e^{\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)\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\frac{1}{2} \cdot \left(1 + \frac{1}{\sqrt{1}}\right)}\\
\end{array}double f(double l, double Om, double kx, double ky) {
double r56436 = 1.0;
double r56437 = 2.0;
double r56438 = r56436 / r56437;
double r56439 = l;
double r56440 = r56437 * r56439;
double r56441 = Om;
double r56442 = r56440 / r56441;
double r56443 = pow(r56442, r56437);
double r56444 = kx;
double r56445 = sin(r56444);
double r56446 = pow(r56445, r56437);
double r56447 = ky;
double r56448 = sin(r56447);
double r56449 = pow(r56448, r56437);
double r56450 = r56446 + r56449;
double r56451 = r56443 * r56450;
double r56452 = r56436 + r56451;
double r56453 = sqrt(r56452);
double r56454 = r56436 / r56453;
double r56455 = r56436 + r56454;
double r56456 = r56438 * r56455;
double r56457 = sqrt(r56456);
return r56457;
}
double f(double l, double Om, double kx, double ky) {
double r56458 = 1.0;
double r56459 = 2.0;
double r56460 = l;
double r56461 = r56459 * r56460;
double r56462 = Om;
double r56463 = r56461 / r56462;
double r56464 = pow(r56463, r56459);
double r56465 = kx;
double r56466 = sin(r56465);
double r56467 = pow(r56466, r56459);
double r56468 = ky;
double r56469 = sin(r56468);
double r56470 = pow(r56469, r56459);
double r56471 = r56467 + r56470;
double r56472 = r56464 * r56471;
double r56473 = r56458 + r56472;
double r56474 = sqrt(r56473);
double r56475 = r56458 / r56474;
double r56476 = 0.999519675329676;
bool r56477 = r56475 <= r56476;
double r56478 = r56458 / r56459;
double r56479 = 2.0;
double r56480 = exp(r56475);
double r56481 = cbrt(r56480);
double r56482 = log(r56481);
double r56483 = r56479 * r56482;
double r56484 = r56483 + r56482;
double r56485 = r56458 + r56484;
double r56486 = r56478 * r56485;
double r56487 = sqrt(r56486);
double r56488 = sqrt(r56458);
double r56489 = r56458 / r56488;
double r56490 = r56458 + r56489;
double r56491 = r56478 * r56490;
double r56492 = sqrt(r56491);
double r56493 = r56477 ? r56487 : r56492;
return r56493;
}



Bits error versus l



Bits error versus Om



Bits error versus kx



Bits error versus ky
Results
if (/ 1.0 (sqrt (+ 1.0 (* (pow (/ (* 2.0 l) Om) 2.0) (+ (pow (sin kx) 2.0) (pow (sin ky) 2.0)))))) < 0.999519675329676Initial program 1.0
rmApplied add-log-exp1.0
rmApplied add-cube-cbrt1.0
Applied log-prod1.0
Simplified1.0
if 0.999519675329676 < (/ 1.0 (sqrt (+ 1.0 (* (pow (/ (* 2.0 l) Om) 2.0) (+ (pow (sin kx) 2.0) (pow (sin ky) 2.0)))))) Initial program 2.1
rmApplied add-cbrt-cube2.1
Simplified2.1
rmApplied add-cube-cbrt2.1
Simplified2.1
Taylor expanded around 0 1.5
Final simplification1.3
herbie shell --seed 2020045
(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))))))))))