\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 \le -3.0011853703712436 \cdot 10^{141} \lor \neg \left(\ell \le -7.585502794490059 \cdot 10^{-156}\right):\\
\;\;\;\;2 \cdot \left(\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}{\frac{{\left(\sqrt[3]{\sin k}\right)}^{4}}{\ell}}}{{\left(\sqrt[3]{1}\right)}^{2}}\right) \cdot \frac{\ell}{{\left(\sqrt[3]{\sin k}\right)}^{2}}\right)\\
\mathbf{else}:\\
\;\;\;\;2 \cdot \left({\left(\frac{\sqrt{1}}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)\right)\\
\end{array}double f(double t, double l, double k) {
double r300398 = 2.0;
double r300399 = t;
double r300400 = 3.0;
double r300401 = pow(r300399, r300400);
double r300402 = l;
double r300403 = r300402 * r300402;
double r300404 = r300401 / r300403;
double r300405 = k;
double r300406 = sin(r300405);
double r300407 = r300404 * r300406;
double r300408 = tan(r300405);
double r300409 = r300407 * r300408;
double r300410 = 1.0;
double r300411 = r300405 / r300399;
double r300412 = pow(r300411, r300398);
double r300413 = r300410 + r300412;
double r300414 = r300413 - r300410;
double r300415 = r300409 * r300414;
double r300416 = r300398 / r300415;
return r300416;
}
double f(double t, double l, double k) {
double r300417 = l;
double r300418 = -3.0011853703712436e+141;
bool r300419 = r300417 <= r300418;
double r300420 = -7.585502794490059e-156;
bool r300421 = r300417 <= r300420;
double r300422 = !r300421;
bool r300423 = r300419 || r300422;
double r300424 = 2.0;
double r300425 = 1.0;
double r300426 = k;
double r300427 = 2.0;
double r300428 = r300424 / r300427;
double r300429 = pow(r300426, r300428);
double r300430 = t;
double r300431 = 1.0;
double r300432 = pow(r300430, r300431);
double r300433 = r300429 * r300432;
double r300434 = r300429 * r300433;
double r300435 = r300425 / r300434;
double r300436 = pow(r300435, r300431);
double r300437 = cos(r300426);
double r300438 = sin(r300426);
double r300439 = cbrt(r300438);
double r300440 = 4.0;
double r300441 = pow(r300439, r300440);
double r300442 = r300441 / r300417;
double r300443 = r300437 / r300442;
double r300444 = cbrt(r300425);
double r300445 = pow(r300444, r300427);
double r300446 = r300443 / r300445;
double r300447 = r300436 * r300446;
double r300448 = pow(r300439, r300427);
double r300449 = r300417 / r300448;
double r300450 = r300447 * r300449;
double r300451 = r300424 * r300450;
double r300452 = sqrt(r300425);
double r300453 = r300452 / r300429;
double r300454 = pow(r300453, r300431);
double r300455 = r300425 / r300433;
double r300456 = pow(r300455, r300431);
double r300457 = pow(r300417, r300427);
double r300458 = r300437 * r300457;
double r300459 = pow(r300438, r300427);
double r300460 = r300458 / r300459;
double r300461 = r300456 * r300460;
double r300462 = r300454 * r300461;
double r300463 = r300424 * r300462;
double r300464 = r300423 ? r300451 : r300463;
return r300464;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if l < -3.0011853703712436e+141 or -7.585502794490059e-156 < l Initial program 49.3
Simplified42.1
Taylor expanded around inf 25.5
rmApplied sqr-pow25.5
Applied associate-*l*24.1
rmApplied add-cube-cbrt24.3
Applied unpow-prod-down24.3
Applied associate-/r*24.0
Simplified21.3
rmApplied *-un-lft-identity21.3
Applied cbrt-prod21.3
Applied unpow-prod-down21.3
Applied associate-/r/21.0
Applied times-frac20.2
Applied associate-*r*13.5
if -3.0011853703712436e+141 < l < -7.585502794490059e-156Initial program 45.7
Simplified35.6
Taylor expanded around inf 10.3
rmApplied sqr-pow10.3
Applied associate-*l*6.3
rmApplied add-sqr-sqrt6.3
Applied times-frac6.0
Applied unpow-prod-down6.0
Applied associate-*l*3.1
Simplified3.1
Final simplification11.0
herbie shell --seed 2020059 +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))))