\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 \cdot \ell \le 2.668972483379631705323847021434622242142 \cdot 10^{302}:\\
\;\;\;\;2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot \left(\frac{\cos k}{\sqrt{{\left(\sin k\right)}^{2}}} \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \frac{{\ell}^{2}}{\left|\sin k\right|}\right)\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{2}{\left(\frac{{\left(\sqrt[3]{t} \cdot \sqrt[3]{t}\right)}^{3}}{\ell} \cdot \left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\ell} \cdot \sin k\right)\right) \cdot \tan k}}{{\left(\frac{k}{t}\right)}^{2}}\\
\end{array}double f(double t, double l, double k) {
double r96509 = 2.0;
double r96510 = t;
double r96511 = 3.0;
double r96512 = pow(r96510, r96511);
double r96513 = l;
double r96514 = r96513 * r96513;
double r96515 = r96512 / r96514;
double r96516 = k;
double r96517 = sin(r96516);
double r96518 = r96515 * r96517;
double r96519 = tan(r96516);
double r96520 = r96518 * r96519;
double r96521 = 1.0;
double r96522 = r96516 / r96510;
double r96523 = pow(r96522, r96509);
double r96524 = r96521 + r96523;
double r96525 = r96524 - r96521;
double r96526 = r96520 * r96525;
double r96527 = r96509 / r96526;
return r96527;
}
double f(double t, double l, double k) {
double r96528 = l;
double r96529 = r96528 * r96528;
double r96530 = 2.6689724833796317e+302;
bool r96531 = r96529 <= r96530;
double r96532 = 2.0;
double r96533 = 1.0;
double r96534 = k;
double r96535 = 2.0;
double r96536 = r96532 / r96535;
double r96537 = pow(r96534, r96536);
double r96538 = r96533 / r96537;
double r96539 = 1.0;
double r96540 = pow(r96538, r96539);
double r96541 = cos(r96534);
double r96542 = sin(r96534);
double r96543 = pow(r96542, r96535);
double r96544 = sqrt(r96543);
double r96545 = r96541 / r96544;
double r96546 = t;
double r96547 = pow(r96546, r96539);
double r96548 = r96537 * r96547;
double r96549 = r96533 / r96548;
double r96550 = pow(r96549, r96539);
double r96551 = pow(r96528, r96535);
double r96552 = fabs(r96542);
double r96553 = r96551 / r96552;
double r96554 = r96550 * r96553;
double r96555 = r96545 * r96554;
double r96556 = r96540 * r96555;
double r96557 = r96532 * r96556;
double r96558 = cbrt(r96546);
double r96559 = r96558 * r96558;
double r96560 = 3.0;
double r96561 = pow(r96559, r96560);
double r96562 = r96561 / r96528;
double r96563 = pow(r96558, r96560);
double r96564 = r96563 / r96528;
double r96565 = r96564 * r96542;
double r96566 = r96562 * r96565;
double r96567 = tan(r96534);
double r96568 = r96566 * r96567;
double r96569 = r96532 / r96568;
double r96570 = r96534 / r96546;
double r96571 = pow(r96570, r96532);
double r96572 = r96569 / r96571;
double r96573 = r96531 ? r96557 : r96572;
return r96573;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if (* l l) < 2.6689724833796317e+302Initial program 45.6
Simplified36.2
Taylor expanded around inf 14.6
rmApplied sqr-pow14.6
Applied associate-*l*12.0
rmApplied *-un-lft-identity12.0
Applied times-frac11.8
Applied unpow-prod-down11.8
Applied associate-*l*9.8
Simplified9.8
rmApplied add-sqr-sqrt9.8
Applied times-frac9.9
Applied associate-*l*9.8
Simplified9.8
if 2.6689724833796317e+302 < (* l l) Initial program 63.7
Simplified63.5
rmApplied add-cube-cbrt63.5
Applied unpow-prod-down63.5
Applied times-frac48.7
Applied associate-*l*48.7
Final simplification15.8
herbie shell --seed 2019209
(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))))