\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}\;k \le -2.8340176235482552 \cdot 10^{-136}:\\
\;\;\;\;\frac{2}{\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\frac{\ell}{{\left(\sqrt[3]{t}\right)}^{3}}} \cdot \left(\left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\ell} \cdot \sin k\right) \cdot \left(\tan k \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)\right)\right)}\\
\mathbf{elif}\;k \le 1.99157602129712096 \cdot 10^{52}:\\
\;\;\;\;\frac{2}{\left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\frac{\ell}{{\left(\sqrt[3]{t}\right)}^{3}}} \cdot \left(\frac{{t}^{\left(\frac{1}{3} \cdot 3\right)}}{\ell} \cdot \sin k\right)\right) \cdot \left(\tan k \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)\right)}\\
\mathbf{elif}\;k \le 7.58438352545380174 \cdot 10^{84}:\\
\;\;\;\;\frac{2}{\frac{{k}^{2} \cdot \left(t \cdot {\left(\sin k\right)}^{2}\right)}{\cos k \cdot {\ell}^{2}} + 2 \cdot \frac{{t}^{3} \cdot {\left(\sin k\right)}^{2}}{\cos k \cdot {\ell}^{2}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\frac{\ell}{{\left(\sqrt[3]{t}\right)}^{3}}} \cdot \left(\left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\ell} \cdot \sin k\right) \cdot \left(\tan k \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)\right)\right)}\\
\end{array}double f(double t, double l, double k) {
double r121591 = 2.0;
double r121592 = t;
double r121593 = 3.0;
double r121594 = pow(r121592, r121593);
double r121595 = l;
double r121596 = r121595 * r121595;
double r121597 = r121594 / r121596;
double r121598 = k;
double r121599 = sin(r121598);
double r121600 = r121597 * r121599;
double r121601 = tan(r121598);
double r121602 = r121600 * r121601;
double r121603 = 1.0;
double r121604 = r121598 / r121592;
double r121605 = pow(r121604, r121591);
double r121606 = r121603 + r121605;
double r121607 = r121606 + r121603;
double r121608 = r121602 * r121607;
double r121609 = r121591 / r121608;
return r121609;
}
double f(double t, double l, double k) {
double r121610 = k;
double r121611 = -2.8340176235482552e-136;
bool r121612 = r121610 <= r121611;
double r121613 = 2.0;
double r121614 = t;
double r121615 = cbrt(r121614);
double r121616 = 3.0;
double r121617 = pow(r121615, r121616);
double r121618 = l;
double r121619 = r121618 / r121617;
double r121620 = r121617 / r121619;
double r121621 = r121617 / r121618;
double r121622 = sin(r121610);
double r121623 = r121621 * r121622;
double r121624 = tan(r121610);
double r121625 = 1.0;
double r121626 = r121610 / r121614;
double r121627 = pow(r121626, r121613);
double r121628 = r121625 + r121627;
double r121629 = r121628 + r121625;
double r121630 = r121624 * r121629;
double r121631 = r121623 * r121630;
double r121632 = r121620 * r121631;
double r121633 = r121613 / r121632;
double r121634 = 1.991576021297121e+52;
bool r121635 = r121610 <= r121634;
double r121636 = 0.3333333333333333;
double r121637 = r121636 * r121616;
double r121638 = pow(r121614, r121637);
double r121639 = r121638 / r121618;
double r121640 = r121639 * r121622;
double r121641 = r121620 * r121640;
double r121642 = r121641 * r121630;
double r121643 = r121613 / r121642;
double r121644 = 7.584383525453802e+84;
bool r121645 = r121610 <= r121644;
double r121646 = 2.0;
double r121647 = pow(r121610, r121646);
double r121648 = pow(r121622, r121646);
double r121649 = r121614 * r121648;
double r121650 = r121647 * r121649;
double r121651 = cos(r121610);
double r121652 = pow(r121618, r121646);
double r121653 = r121651 * r121652;
double r121654 = r121650 / r121653;
double r121655 = 3.0;
double r121656 = pow(r121614, r121655);
double r121657 = r121656 * r121648;
double r121658 = r121657 / r121653;
double r121659 = r121613 * r121658;
double r121660 = r121654 + r121659;
double r121661 = r121613 / r121660;
double r121662 = r121645 ? r121661 : r121633;
double r121663 = r121635 ? r121643 : r121662;
double r121664 = r121612 ? r121633 : r121663;
return r121664;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if k < -2.8340176235482552e-136 or 7.584383525453802e+84 < k Initial program 31.6
rmApplied add-cube-cbrt31.7
Applied unpow-prod-down31.7
Applied times-frac24.4
Applied associate-*l*24.2
rmApplied unpow-prod-down24.2
Applied associate-/l*18.8
rmApplied associate-*l*18.7
rmApplied associate-*l*16.3
if -2.8340176235482552e-136 < k < 1.991576021297121e+52Initial program 33.1
rmApplied add-cube-cbrt33.3
Applied unpow-prod-down33.3
Applied times-frac27.0
Applied associate-*l*21.8
rmApplied unpow-prod-down21.7
Applied associate-/l*15.6
rmApplied associate-*l*15.1
rmApplied pow1/339.8
Applied pow-pow14.9
if 1.991576021297121e+52 < k < 7.584383525453802e+84Initial program 27.6
Taylor expanded around inf 13.3
Final simplification15.7
herbie shell --seed 2020047
(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))))