\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.3906876184283825 \cdot 10^{-135}:\\
\;\;\;\;\frac{2}{\left(\left(\left(\left(\frac{{\left(\sqrt[3]{t} \cdot \sqrt[3]{t}\right)}^{\left(\frac{3}{2}\right)}}{\sqrt[3]{\ell} \cdot \sqrt[3]{\ell}} \cdot \frac{{\left(\sqrt[3]{t} \cdot \sqrt[3]{t}\right)}^{\left(\frac{3}{2}\right)}}{\left(\sqrt[3]{\sqrt[3]{\ell}} \cdot \sqrt[3]{\sqrt[3]{\ell}}\right) \cdot \sqrt[3]{\sqrt[3]{\ell}}}\right) \cdot \frac{{t}^{\left(\frac{1}{3} \cdot 3\right)}}{\ell}\right) \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)}\\
\mathbf{elif}\;t \le 1.7521304492670182 \cdot 10^{-68}:\\
\;\;\;\;\frac{2}{\mathsf{fma}\left(2, \frac{{t}^{3} \cdot {\left(\sin k\right)}^{2}}{\cos k \cdot {\ell}^{2}}, \frac{{k}^{2} \cdot \left(t \cdot {\left(\sin k\right)}^{2}\right)}{\cos k \cdot {\ell}^{2}}\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{\left(\left(\frac{{\left(\sqrt{t}\right)}^{3}}{\ell} \cdot \left(\frac{{\left(\sqrt{t}\right)}^{3}}{\ell} \cdot \sin k\right)\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) + 1\right)}\\
\end{array}double f(double t, double l, double k) {
double r133191 = 2.0;
double r133192 = t;
double r133193 = 3.0;
double r133194 = pow(r133192, r133193);
double r133195 = l;
double r133196 = r133195 * r133195;
double r133197 = r133194 / r133196;
double r133198 = k;
double r133199 = sin(r133198);
double r133200 = r133197 * r133199;
double r133201 = tan(r133198);
double r133202 = r133200 * r133201;
double r133203 = 1.0;
double r133204 = r133198 / r133192;
double r133205 = pow(r133204, r133191);
double r133206 = r133203 + r133205;
double r133207 = r133206 + r133203;
double r133208 = r133202 * r133207;
double r133209 = r133191 / r133208;
return r133209;
}
double f(double t, double l, double k) {
double r133210 = t;
double r133211 = -7.390687618428382e-135;
bool r133212 = r133210 <= r133211;
double r133213 = 2.0;
double r133214 = cbrt(r133210);
double r133215 = r133214 * r133214;
double r133216 = 3.0;
double r133217 = 2.0;
double r133218 = r133216 / r133217;
double r133219 = pow(r133215, r133218);
double r133220 = l;
double r133221 = cbrt(r133220);
double r133222 = r133221 * r133221;
double r133223 = r133219 / r133222;
double r133224 = cbrt(r133221);
double r133225 = r133224 * r133224;
double r133226 = r133225 * r133224;
double r133227 = r133219 / r133226;
double r133228 = r133223 * r133227;
double r133229 = 0.3333333333333333;
double r133230 = r133229 * r133216;
double r133231 = pow(r133210, r133230);
double r133232 = r133231 / r133220;
double r133233 = r133228 * r133232;
double r133234 = k;
double r133235 = sin(r133234);
double r133236 = r133233 * r133235;
double r133237 = tan(r133234);
double r133238 = r133236 * r133237;
double r133239 = 1.0;
double r133240 = r133234 / r133210;
double r133241 = pow(r133240, r133213);
double r133242 = r133239 + r133241;
double r133243 = r133242 + r133239;
double r133244 = r133238 * r133243;
double r133245 = r133213 / r133244;
double r133246 = 1.7521304492670182e-68;
bool r133247 = r133210 <= r133246;
double r133248 = 3.0;
double r133249 = pow(r133210, r133248);
double r133250 = pow(r133235, r133217);
double r133251 = r133249 * r133250;
double r133252 = cos(r133234);
double r133253 = pow(r133220, r133217);
double r133254 = r133252 * r133253;
double r133255 = r133251 / r133254;
double r133256 = pow(r133234, r133217);
double r133257 = r133210 * r133250;
double r133258 = r133256 * r133257;
double r133259 = r133258 / r133254;
double r133260 = fma(r133213, r133255, r133259);
double r133261 = r133213 / r133260;
double r133262 = sqrt(r133210);
double r133263 = pow(r133262, r133216);
double r133264 = r133263 / r133220;
double r133265 = r133264 * r133235;
double r133266 = r133264 * r133265;
double r133267 = r133266 * r133237;
double r133268 = r133267 * r133243;
double r133269 = r133213 / r133268;
double r133270 = r133247 ? r133261 : r133269;
double r133271 = r133212 ? r133245 : r133270;
return r133271;
}



Bits error versus t



Bits error versus l



Bits error versus k
if t < -7.390687618428382e-135Initial program 25.4
rmApplied add-cube-cbrt25.6
Applied unpow-prod-down25.6
Applied times-frac17.6
rmApplied add-cube-cbrt17.6
Applied sqr-pow17.6
Applied times-frac13.7
rmApplied pow1/364.0
Applied pow-pow13.7
rmApplied add-cube-cbrt13.7
if -7.390687618428382e-135 < t < 1.7521304492670182e-68Initial program 60.5
Taylor expanded around inf 39.7
Simplified39.7
if 1.7521304492670182e-68 < t Initial program 24.3
rmApplied add-sqr-sqrt24.3
Applied unpow-prod-down24.3
Applied times-frac14.6
Applied associate-*l*11.6
Final simplification19.0
herbie shell --seed 2020020 +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))))