\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 -4.8313980477030282 \cdot 10^{-238} \lor \neg \left(t \le 2.94640358024494831 \cdot 10^{-79}\right):\\
\;\;\;\;\frac{2}{\left(\left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\sqrt[3]{\ell} \cdot \sqrt[3]{\ell}} \cdot \left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\sqrt[3]{\ell}} \cdot \left(\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\ell} \cdot \sin k\right)\right)\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)}\\
\mathbf{else}:\\
\;\;\;\;\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}}}\\
\end{array}double f(double t, double l, double k) {
double r128681 = 2.0;
double r128682 = t;
double r128683 = 3.0;
double r128684 = pow(r128682, r128683);
double r128685 = l;
double r128686 = r128685 * r128685;
double r128687 = r128684 / r128686;
double r128688 = k;
double r128689 = sin(r128688);
double r128690 = r128687 * r128689;
double r128691 = tan(r128688);
double r128692 = r128690 * r128691;
double r128693 = 1.0;
double r128694 = r128688 / r128682;
double r128695 = pow(r128694, r128681);
double r128696 = r128693 + r128695;
double r128697 = r128696 + r128693;
double r128698 = r128692 * r128697;
double r128699 = r128681 / r128698;
return r128699;
}
double f(double t, double l, double k) {
double r128700 = t;
double r128701 = -4.831398047703028e-238;
bool r128702 = r128700 <= r128701;
double r128703 = 2.9464035802449483e-79;
bool r128704 = r128700 <= r128703;
double r128705 = !r128704;
bool r128706 = r128702 || r128705;
double r128707 = 2.0;
double r128708 = cbrt(r128700);
double r128709 = 3.0;
double r128710 = pow(r128708, r128709);
double r128711 = l;
double r128712 = cbrt(r128711);
double r128713 = r128712 * r128712;
double r128714 = r128710 / r128713;
double r128715 = r128710 / r128712;
double r128716 = r128710 / r128711;
double r128717 = k;
double r128718 = sin(r128717);
double r128719 = r128716 * r128718;
double r128720 = r128715 * r128719;
double r128721 = r128714 * r128720;
double r128722 = tan(r128717);
double r128723 = r128721 * r128722;
double r128724 = 1.0;
double r128725 = r128717 / r128700;
double r128726 = pow(r128725, r128707);
double r128727 = r128724 + r128726;
double r128728 = r128727 + r128724;
double r128729 = r128723 * r128728;
double r128730 = r128707 / r128729;
double r128731 = 2.0;
double r128732 = pow(r128717, r128731);
double r128733 = pow(r128718, r128731);
double r128734 = r128700 * r128733;
double r128735 = r128732 * r128734;
double r128736 = cos(r128717);
double r128737 = pow(r128711, r128731);
double r128738 = r128736 * r128737;
double r128739 = r128735 / r128738;
double r128740 = 3.0;
double r128741 = pow(r128700, r128740);
double r128742 = r128741 * r128733;
double r128743 = r128742 / r128738;
double r128744 = r128707 * r128743;
double r128745 = r128739 + r128744;
double r128746 = r128707 / r128745;
double r128747 = r128706 ? r128730 : r128746;
return r128747;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if t < -4.831398047703028e-238 or 2.9464035802449483e-79 < t Initial program 27.4
rmApplied add-cube-cbrt27.5
Applied unpow-prod-down27.5
Applied times-frac20.5
rmApplied add-cube-cbrt20.5
Applied unpow-prod-down20.5
Applied times-frac15.1
rmApplied associate-*l*12.6
rmApplied associate-*l*11.6
if -4.831398047703028e-238 < t < 2.9464035802449483e-79Initial program 60.0
Taylor expanded around inf 38.9
Final simplification16.2
herbie shell --seed 2020033
(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))))