\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.451781871449174 \cdot 10^{-25}:\\
\;\;\;\;\frac{2}{\frac{\mathsf{fma}\left(\frac{k}{t}, \frac{k}{t}, 2\right) \cdot \left(\frac{\frac{t \cdot \sin k}{\sqrt[3]{\frac{\ell}{t}} \cdot \sqrt[3]{\frac{\ell}{t}}}}{\sqrt[3]{\frac{\ell}{t}}} \cdot \tan k\right)}{\frac{\ell}{t}}}\\
\mathbf{elif}\;t \le 2.030695630825502 \cdot 10^{-34}:\\
\;\;\;\;\frac{2}{\frac{\mathsf{fma}\left(2, \frac{t \cdot t}{\frac{\ell \cdot \cos k}{\sin k \cdot \sin k}}, \frac{\sin k \cdot \sin k}{\frac{\ell \cdot \cos k}{k \cdot k}}\right)}{\frac{\ell}{t}}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{\frac{\mathsf{fma}\left(\frac{k}{t}, \frac{k}{t}, 2\right) \cdot \left(\frac{\frac{t \cdot \sin k}{\sqrt[3]{\frac{\ell}{t}} \cdot \sqrt[3]{\frac{\ell}{t}}}}{\sqrt[3]{\frac{\ell}{t}}} \cdot \tan k\right)}{\frac{\ell}{t}}}\\
\end{array}double f(double t, double l, double k) {
double r1284474 = 2.0;
double r1284475 = t;
double r1284476 = 3.0;
double r1284477 = pow(r1284475, r1284476);
double r1284478 = l;
double r1284479 = r1284478 * r1284478;
double r1284480 = r1284477 / r1284479;
double r1284481 = k;
double r1284482 = sin(r1284481);
double r1284483 = r1284480 * r1284482;
double r1284484 = tan(r1284481);
double r1284485 = r1284483 * r1284484;
double r1284486 = 1.0;
double r1284487 = r1284481 / r1284475;
double r1284488 = pow(r1284487, r1284474);
double r1284489 = r1284486 + r1284488;
double r1284490 = r1284489 + r1284486;
double r1284491 = r1284485 * r1284490;
double r1284492 = r1284474 / r1284491;
return r1284492;
}
double f(double t, double l, double k) {
double r1284493 = t;
double r1284494 = -7.451781871449174e-25;
bool r1284495 = r1284493 <= r1284494;
double r1284496 = 2.0;
double r1284497 = k;
double r1284498 = r1284497 / r1284493;
double r1284499 = fma(r1284498, r1284498, r1284496);
double r1284500 = sin(r1284497);
double r1284501 = r1284493 * r1284500;
double r1284502 = l;
double r1284503 = r1284502 / r1284493;
double r1284504 = cbrt(r1284503);
double r1284505 = r1284504 * r1284504;
double r1284506 = r1284501 / r1284505;
double r1284507 = r1284506 / r1284504;
double r1284508 = tan(r1284497);
double r1284509 = r1284507 * r1284508;
double r1284510 = r1284499 * r1284509;
double r1284511 = r1284510 / r1284503;
double r1284512 = r1284496 / r1284511;
double r1284513 = 2.030695630825502e-34;
bool r1284514 = r1284493 <= r1284513;
double r1284515 = r1284493 * r1284493;
double r1284516 = cos(r1284497);
double r1284517 = r1284502 * r1284516;
double r1284518 = r1284500 * r1284500;
double r1284519 = r1284517 / r1284518;
double r1284520 = r1284515 / r1284519;
double r1284521 = r1284497 * r1284497;
double r1284522 = r1284517 / r1284521;
double r1284523 = r1284518 / r1284522;
double r1284524 = fma(r1284496, r1284520, r1284523);
double r1284525 = r1284524 / r1284503;
double r1284526 = r1284496 / r1284525;
double r1284527 = r1284514 ? r1284526 : r1284512;
double r1284528 = r1284495 ? r1284512 : r1284527;
return r1284528;
}



Bits error versus t



Bits error versus l



Bits error versus k
if t < -7.451781871449174e-25 or 2.030695630825502e-34 < t Initial program 22.0
Simplified12.1
rmApplied *-un-lft-identity12.1
Applied times-frac11.4
Applied associate-*l*8.4
rmApplied associate-*l/7.0
Applied associate-*r/7.0
Applied associate-*l/4.1
Applied associate-*l/3.7
Simplified3.5
rmApplied add-cube-cbrt3.8
Applied associate-/r*3.8
if -7.451781871449174e-25 < t < 2.030695630825502e-34Initial program 52.1
Simplified39.1
rmApplied *-un-lft-identity39.1
Applied times-frac38.3
Applied associate-*l*37.2
rmApplied associate-*l/37.8
Applied associate-*r/37.8
Applied associate-*l/38.7
Applied associate-*l/35.0
Simplified35.0
Taylor expanded around -inf 22.8
Simplified20.0
Final simplification9.3
herbie shell --seed 2019153 +o rules:numerics
(FPCore (t l k)
:name "Toniolo and Linder, Equation (10+)"
(/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (+ (+ 1 (pow (/ k t) 2)) 1))))