\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}\;t \le -7.0406159648992199 \cdot 10^{-167} \lor \neg \left(t \le 2.16061917534913763 \cdot 10^{-272}\right):\\
\;\;\;\;\frac{2}{\frac{\left({\left(\sqrt[3]{t} \cdot \sqrt[3]{t}\right)}^{\left(\frac{3}{2}\right)} \cdot \left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\ell} \cdot \sin k\right)\right) \cdot \left(\tan k \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)\right)}{\frac{\ell}{{\left(\sqrt[3]{t} \cdot \sqrt[3]{t}\right)}^{\left(\frac{3}{2}\right)}}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{2 \cdot \left({\left(\frac{1}{{-1}^{3}}\right)}^{1} \cdot \frac{{\left(\sqrt[3]{-1}\right)}^{9} \cdot \left({t}^{3} \cdot {\left(\sin k\right)}^{2}\right)}{\cos k \cdot {\ell}^{2}}\right) + {\left(\frac{1}{{-1}^{3}}\right)}^{1} \cdot \frac{{\left(\sqrt[3]{-1}\right)}^{9} \cdot \left({\left(\sin k\right)}^{2} \cdot \left({k}^{2} \cdot t\right)\right)}{\cos k \cdot {\ell}^{2}}}\\
\end{array}double f(double t, double l, double k) {
double r132982 = 2.0;
double r132983 = t;
double r132984 = 3.0;
double r132985 = pow(r132983, r132984);
double r132986 = l;
double r132987 = r132986 * r132986;
double r132988 = r132985 / r132987;
double r132989 = k;
double r132990 = sin(r132989);
double r132991 = r132988 * r132990;
double r132992 = tan(r132989);
double r132993 = r132991 * r132992;
double r132994 = 1.0;
double r132995 = r132989 / r132983;
double r132996 = pow(r132995, r132982);
double r132997 = r132994 + r132996;
double r132998 = r132997 + r132994;
double r132999 = r132993 * r132998;
double r133000 = r132982 / r132999;
return r133000;
}
double f(double t, double l, double k) {
double r133001 = t;
double r133002 = -7.04061596489922e-167;
bool r133003 = r133001 <= r133002;
double r133004 = 2.1606191753491376e-272;
bool r133005 = r133001 <= r133004;
double r133006 = !r133005;
bool r133007 = r133003 || r133006;
double r133008 = 2.0;
double r133009 = cbrt(r133001);
double r133010 = r133009 * r133009;
double r133011 = 3.0;
double r133012 = 2.0;
double r133013 = r133011 / r133012;
double r133014 = pow(r133010, r133013);
double r133015 = pow(r133009, r133011);
double r133016 = l;
double r133017 = r133015 / r133016;
double r133018 = k;
double r133019 = sin(r133018);
double r133020 = r133017 * r133019;
double r133021 = r133014 * r133020;
double r133022 = tan(r133018);
double r133023 = 1.0;
double r133024 = r133018 / r133001;
double r133025 = pow(r133024, r133008);
double r133026 = r133023 + r133025;
double r133027 = r133026 + r133023;
double r133028 = r133022 * r133027;
double r133029 = r133021 * r133028;
double r133030 = r133016 / r133014;
double r133031 = r133029 / r133030;
double r133032 = r133008 / r133031;
double r133033 = 1.0;
double r133034 = -1.0;
double r133035 = pow(r133034, r133011);
double r133036 = r133033 / r133035;
double r133037 = pow(r133036, r133023);
double r133038 = cbrt(r133034);
double r133039 = 9.0;
double r133040 = pow(r133038, r133039);
double r133041 = 3.0;
double r133042 = pow(r133001, r133041);
double r133043 = pow(r133019, r133012);
double r133044 = r133042 * r133043;
double r133045 = r133040 * r133044;
double r133046 = cos(r133018);
double r133047 = pow(r133016, r133012);
double r133048 = r133046 * r133047;
double r133049 = r133045 / r133048;
double r133050 = r133037 * r133049;
double r133051 = r133008 * r133050;
double r133052 = pow(r133018, r133012);
double r133053 = r133052 * r133001;
double r133054 = r133043 * r133053;
double r133055 = r133040 * r133054;
double r133056 = r133055 / r133048;
double r133057 = r133037 * r133056;
double r133058 = r133051 + r133057;
double r133059 = r133008 / r133058;
double r133060 = r133007 ? r133032 : r133059;
return r133060;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if t < -7.04061596489922e-167 or 2.1606191753491376e-272 < t Initial program 29.4
rmApplied add-cube-cbrt29.5
Applied unpow-prod-down29.5
Applied times-frac21.6
Applied associate-*l*19.6
rmApplied sqr-pow19.6
Applied associate-/l*14.7
rmApplied associate-*l*14.5
rmApplied associate-*l/13.5
Applied associate-*l/10.7
if -7.04061596489922e-167 < t < 2.1606191753491376e-272Initial program 64.0
rmApplied add-cube-cbrt64.0
Applied unpow-prod-down64.0
Applied times-frac64.0
Applied associate-*l*64.0
Taylor expanded around -inf 39.3
Final simplification13.4
herbie shell --seed 2020056
(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))))