\frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}\begin{array}{l}
\mathbf{if}\;\ell \cdot \ell \le 2.6145740768465546 \cdot 10^{-212}:\\
\;\;\;\;2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \frac{\frac{\cos k}{\left|\sin k\right|} \cdot \ell}{\frac{\left|\sin k\right|}{\ell}}\right)\\
\mathbf{elif}\;\ell \cdot \ell \le 8.3711679961397521 \cdot 10^{265}:\\
\;\;\;\;2 \cdot \left({\left(\frac{\sqrt[3]{1} \cdot \sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot \left({\left(\frac{\sqrt[3]{1}}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \left(\frac{\cos k}{\left|\sin k\right|} \cdot \frac{\ell}{\frac{\left|\sin k\right|}{\ell}}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;2 \cdot \frac{\left({\left(\frac{1}{{k}^{2} \cdot {t}^{1}}\right)}^{1} \cdot \ell\right) \cdot \cos k}{\left|\sin k\right| \cdot \frac{\left|\sin k\right|}{\ell}}\\
\end{array}double f(double t, double l, double k) {
double r79766 = 2.0;
double r79767 = t;
double r79768 = 3.0;
double r79769 = pow(r79767, r79768);
double r79770 = l;
double r79771 = r79770 * r79770;
double r79772 = r79769 / r79771;
double r79773 = k;
double r79774 = sin(r79773);
double r79775 = r79772 * r79774;
double r79776 = tan(r79773);
double r79777 = r79775 * r79776;
double r79778 = 1.0;
double r79779 = r79773 / r79767;
double r79780 = pow(r79779, r79766);
double r79781 = r79778 + r79780;
double r79782 = r79781 - r79778;
double r79783 = r79777 * r79782;
double r79784 = r79766 / r79783;
return r79784;
}
double f(double t, double l, double k) {
double r79785 = l;
double r79786 = r79785 * r79785;
double r79787 = 2.6145740768465546e-212;
bool r79788 = r79786 <= r79787;
double r79789 = 2.0;
double r79790 = 1.0;
double r79791 = k;
double r79792 = 2.0;
double r79793 = r79789 / r79792;
double r79794 = pow(r79791, r79793);
double r79795 = t;
double r79796 = 1.0;
double r79797 = pow(r79795, r79796);
double r79798 = r79794 * r79797;
double r79799 = r79794 * r79798;
double r79800 = r79790 / r79799;
double r79801 = pow(r79800, r79796);
double r79802 = cos(r79791);
double r79803 = sin(r79791);
double r79804 = fabs(r79803);
double r79805 = r79802 / r79804;
double r79806 = r79805 * r79785;
double r79807 = r79804 / r79785;
double r79808 = r79806 / r79807;
double r79809 = r79801 * r79808;
double r79810 = r79789 * r79809;
double r79811 = 8.371167996139752e+265;
bool r79812 = r79786 <= r79811;
double r79813 = cbrt(r79790);
double r79814 = r79813 * r79813;
double r79815 = r79814 / r79794;
double r79816 = pow(r79815, r79796);
double r79817 = r79813 / r79798;
double r79818 = pow(r79817, r79796);
double r79819 = r79785 / r79807;
double r79820 = r79805 * r79819;
double r79821 = r79818 * r79820;
double r79822 = r79816 * r79821;
double r79823 = r79789 * r79822;
double r79824 = pow(r79791, r79789);
double r79825 = r79824 * r79797;
double r79826 = r79790 / r79825;
double r79827 = pow(r79826, r79796);
double r79828 = r79827 * r79785;
double r79829 = r79828 * r79802;
double r79830 = r79804 * r79807;
double r79831 = r79829 / r79830;
double r79832 = r79789 * r79831;
double r79833 = r79812 ? r79823 : r79832;
double r79834 = r79788 ? r79810 : r79833;
return r79834;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if (* l l) < 2.6145740768465546e-212Initial program 46.2
Simplified36.8
Taylor expanded around inf 16.3
rmApplied sqr-pow16.3
Applied associate-*l*16.3
rmApplied add-sqr-sqrt16.3
Applied times-frac16.2
Simplified16.2
Simplified11.6
rmApplied associate-*r/8.6
if 2.6145740768465546e-212 < (* l l) < 8.371167996139752e+265Initial program 43.9
Simplified34.7
Taylor expanded around inf 11.5
rmApplied sqr-pow11.5
Applied associate-*l*7.1
rmApplied add-sqr-sqrt7.1
Applied times-frac7.1
Simplified7.1
Simplified7.0
rmApplied add-cube-cbrt7.0
Applied times-frac6.4
Applied unpow-prod-down6.4
Applied associate-*l*2.9
if 8.371167996139752e+265 < (* l l) Initial program 61.7
Simplified60.6
Taylor expanded around inf 58.8
rmApplied sqr-pow58.8
Applied associate-*l*57.7
rmApplied add-sqr-sqrt57.7
Applied times-frac57.7
Simplified57.7
Simplified57.7
rmApplied frac-times57.7
Applied associate-*r/36.7
Simplified44.3
Final simplification12.7
herbie shell --seed 2020056 +o rules:numerics
(FPCore (t l k)
:name "Toniolo and Linder, Equation (10-)"
:precision binary64
(/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (- (+ 1 (pow (/ k t) 2)) 1))))