\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 -5.55809296410159264 \cdot 10^{-38} \lor \neg \left(t \le 7.03820609424746626 \cdot 10^{-94}\right):\\
\;\;\;\;\frac{2}{\left(\left(\left({\left(\sqrt[3]{t}\right)}^{3} \cdot \left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\ell} \cdot \sin k\right)\right) \cdot \sin k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)\right) \cdot \frac{1}{\frac{\ell}{{\left(\sqrt[3]{t}\right)}^{3}} \cdot \cos k}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{\frac{\mathsf{fma}\left(2, {\left(\frac{1}{{-1}^{2}}\right)}^{1} \cdot \frac{{t}^{2} \cdot {\left(\sin k\right)}^{2}}{\ell}, {\left(\frac{1}{{-1}^{2}}\right)}^{1} \cdot \frac{{k}^{2} \cdot {\left(\sin k\right)}^{2}}{\ell}\right)}{\frac{\ell}{{\left(\sqrt[3]{t}\right)}^{3}} \cdot \cos k}}\\
\end{array}double f(double t, double l, double k) {
double r135416 = 2.0;
double r135417 = t;
double r135418 = 3.0;
double r135419 = pow(r135417, r135418);
double r135420 = l;
double r135421 = r135420 * r135420;
double r135422 = r135419 / r135421;
double r135423 = k;
double r135424 = sin(r135423);
double r135425 = r135422 * r135424;
double r135426 = tan(r135423);
double r135427 = r135425 * r135426;
double r135428 = 1.0;
double r135429 = r135423 / r135417;
double r135430 = pow(r135429, r135416);
double r135431 = r135428 + r135430;
double r135432 = r135431 + r135428;
double r135433 = r135427 * r135432;
double r135434 = r135416 / r135433;
return r135434;
}
double f(double t, double l, double k) {
double r135435 = t;
double r135436 = -5.558092964101593e-38;
bool r135437 = r135435 <= r135436;
double r135438 = 7.038206094247466e-94;
bool r135439 = r135435 <= r135438;
double r135440 = !r135439;
bool r135441 = r135437 || r135440;
double r135442 = 2.0;
double r135443 = cbrt(r135435);
double r135444 = 3.0;
double r135445 = pow(r135443, r135444);
double r135446 = l;
double r135447 = r135445 / r135446;
double r135448 = k;
double r135449 = sin(r135448);
double r135450 = r135447 * r135449;
double r135451 = r135445 * r135450;
double r135452 = r135451 * r135449;
double r135453 = 1.0;
double r135454 = r135448 / r135435;
double r135455 = pow(r135454, r135442);
double r135456 = r135453 + r135455;
double r135457 = r135456 + r135453;
double r135458 = r135452 * r135457;
double r135459 = 1.0;
double r135460 = r135446 / r135445;
double r135461 = cos(r135448);
double r135462 = r135460 * r135461;
double r135463 = r135459 / r135462;
double r135464 = r135458 * r135463;
double r135465 = r135442 / r135464;
double r135466 = -1.0;
double r135467 = pow(r135466, r135442);
double r135468 = r135459 / r135467;
double r135469 = pow(r135468, r135453);
double r135470 = 2.0;
double r135471 = pow(r135435, r135470);
double r135472 = pow(r135449, r135470);
double r135473 = r135471 * r135472;
double r135474 = r135473 / r135446;
double r135475 = r135469 * r135474;
double r135476 = pow(r135448, r135470);
double r135477 = r135476 * r135472;
double r135478 = r135477 / r135446;
double r135479 = r135469 * r135478;
double r135480 = fma(r135442, r135475, r135479);
double r135481 = r135480 / r135462;
double r135482 = r135442 / r135481;
double r135483 = r135441 ? r135465 : r135482;
return r135483;
}



Bits error versus t



Bits error versus l



Bits error versus k
if t < -5.558092964101593e-38 or 7.038206094247466e-94 < t Initial program 22.5
rmApplied add-cube-cbrt22.7
Applied unpow-prod-down22.7
Applied times-frac16.4
Applied associate-*l*14.2
rmApplied unpow-prod-down14.2
Applied associate-/l*9.2
rmApplied tan-quot9.2
Applied associate-*l/8.0
Applied frac-times5.8
Applied associate-*l/5.2
rmApplied div-inv5.2
if -5.558092964101593e-38 < t < 7.038206094247466e-94Initial program 57.0
rmApplied add-cube-cbrt57.0
Applied unpow-prod-down57.0
Applied times-frac48.8
Applied associate-*l*48.4
rmApplied unpow-prod-down48.4
Applied associate-/l*41.1
rmApplied tan-quot41.1
Applied associate-*l/41.1
Applied frac-times42.4
Applied associate-*l/39.1
Taylor expanded around -inf 22.5
Simplified22.5
Final simplification10.0
herbie shell --seed 2020018 +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))))