\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[3]{{\left(\left(\sqrt[3]{\sqrt[3]{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)} \cdot \sqrt[3]{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)}} \cdot \sqrt[3]{\sqrt[3]{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)}}\right) \cdot \left(\left(\sqrt[3]{\sqrt[3]{\sqrt{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)}}} \cdot \sqrt[3]{\sqrt[3]{\sqrt{1 + {\left(\frac{2 \cdot \ell}{Om}\right)}^{2} \cdot \left({\left(\sin kx\right)}^{2} + {\left(\sin ky\right)}^{2}\right)}}}\right) \cdot \sqrt[3]{\sqrt[3]{\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)}^{3}}}\right)}double f(double l, double Om, double kx, double ky) {
double r55657 = 1.0;
double r55658 = 2.0;
double r55659 = r55657 / r55658;
double r55660 = l;
double r55661 = r55658 * r55660;
double r55662 = Om;
double r55663 = r55661 / r55662;
double r55664 = pow(r55663, r55658);
double r55665 = kx;
double r55666 = sin(r55665);
double r55667 = pow(r55666, r55658);
double r55668 = ky;
double r55669 = sin(r55668);
double r55670 = pow(r55669, r55658);
double r55671 = r55667 + r55670;
double r55672 = r55664 * r55671;
double r55673 = r55657 + r55672;
double r55674 = sqrt(r55673);
double r55675 = r55657 / r55674;
double r55676 = r55657 + r55675;
double r55677 = r55659 * r55676;
double r55678 = sqrt(r55677);
return r55678;
}
double f(double l, double Om, double kx, double ky) {
double r55679 = 1.0;
double r55680 = 2.0;
double r55681 = r55679 / r55680;
double r55682 = l;
double r55683 = r55680 * r55682;
double r55684 = Om;
double r55685 = r55683 / r55684;
double r55686 = pow(r55685, r55680);
double r55687 = kx;
double r55688 = sin(r55687);
double r55689 = pow(r55688, r55680);
double r55690 = ky;
double r55691 = sin(r55690);
double r55692 = pow(r55691, r55680);
double r55693 = r55689 + r55692;
double r55694 = r55686 * r55693;
double r55695 = r55679 + r55694;
double r55696 = cbrt(r55695);
double r55697 = r55696 * r55696;
double r55698 = cbrt(r55697);
double r55699 = cbrt(r55696);
double r55700 = r55698 * r55699;
double r55701 = sqrt(r55695);
double r55702 = cbrt(r55701);
double r55703 = cbrt(r55702);
double r55704 = r55703 * r55703;
double r55705 = r55704 * r55703;
double r55706 = r55700 * r55705;
double r55707 = 3.0;
double r55708 = pow(r55706, r55707);
double r55709 = cbrt(r55708);
double r55710 = r55679 / r55709;
double r55711 = r55679 + r55710;
double r55712 = r55681 * r55711;
double r55713 = sqrt(r55712);
return r55713;
}



Bits error versus l



Bits error versus Om



Bits error versus kx



Bits error versus ky
Results
Initial program 1.5
rmApplied add-cbrt-cube1.5
Simplified1.5
rmApplied add-cube-cbrt1.5
Simplified1.5
rmApplied add-cube-cbrt1.5
rmApplied add-cube-cbrt1.5
Applied cbrt-prod1.5
Final simplification1.5
herbie shell --seed 2019354 +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))))))))))