\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 -1.256979005998033833484877954294753632724 \cdot 10^{-132} \lor \neg \left(t \le 1.03409019951837867043197419323235322193 \cdot 10^{-142}\right):\\
\;\;\;\;\frac{\frac{2}{\frac{\frac{{\left(\sqrt[3]{t}\right)}^{3}}{\sqrt[3]{\ell} \cdot \sqrt[3]{\ell}} \cdot \left(\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) \cdot \sin k\right)}{\cos k}}}{\mathsf{fma}\left(2, 1, {\left(\frac{k}{t}\right)}^{2}\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{2}{\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{k \cdot t}{\ell} - \frac{1}{6} \cdot \frac{{k}^{3} \cdot t}{\ell}\right)\right)\right) \cdot \tan k}}{\mathsf{fma}\left(2, 1, {\left(\frac{k}{t}\right)}^{2}\right)}\\
\end{array}double f(double t, double l, double k) {
double r131321 = 2.0;
double r131322 = t;
double r131323 = 3.0;
double r131324 = pow(r131322, r131323);
double r131325 = l;
double r131326 = r131325 * r131325;
double r131327 = r131324 / r131326;
double r131328 = k;
double r131329 = sin(r131328);
double r131330 = r131327 * r131329;
double r131331 = tan(r131328);
double r131332 = r131330 * r131331;
double r131333 = 1.0;
double r131334 = r131328 / r131322;
double r131335 = pow(r131334, r131321);
double r131336 = r131333 + r131335;
double r131337 = r131336 + r131333;
double r131338 = r131332 * r131337;
double r131339 = r131321 / r131338;
return r131339;
}
double f(double t, double l, double k) {
double r131340 = t;
double r131341 = -1.2569790059980338e-132;
bool r131342 = r131340 <= r131341;
double r131343 = 1.0340901995183787e-142;
bool r131344 = r131340 <= r131343;
double r131345 = !r131344;
bool r131346 = r131342 || r131345;
double r131347 = 2.0;
double r131348 = cbrt(r131340);
double r131349 = 3.0;
double r131350 = pow(r131348, r131349);
double r131351 = l;
double r131352 = cbrt(r131351);
double r131353 = r131352 * r131352;
double r131354 = r131350 / r131353;
double r131355 = r131350 / r131352;
double r131356 = r131350 / r131351;
double r131357 = k;
double r131358 = sin(r131357);
double r131359 = r131356 * r131358;
double r131360 = r131355 * r131359;
double r131361 = r131360 * r131358;
double r131362 = r131354 * r131361;
double r131363 = cos(r131357);
double r131364 = r131362 / r131363;
double r131365 = r131347 / r131364;
double r131366 = 2.0;
double r131367 = 1.0;
double r131368 = r131357 / r131340;
double r131369 = pow(r131368, r131347);
double r131370 = fma(r131366, r131367, r131369);
double r131371 = r131365 / r131370;
double r131372 = r131357 * r131340;
double r131373 = r131372 / r131351;
double r131374 = 0.16666666666666666;
double r131375 = 3.0;
double r131376 = pow(r131357, r131375);
double r131377 = r131376 * r131340;
double r131378 = r131377 / r131351;
double r131379 = r131374 * r131378;
double r131380 = r131373 - r131379;
double r131381 = r131355 * r131380;
double r131382 = r131354 * r131381;
double r131383 = tan(r131357);
double r131384 = r131382 * r131383;
double r131385 = r131347 / r131384;
double r131386 = r131385 / r131370;
double r131387 = r131346 ? r131371 : r131386;
return r131387;
}



Bits error versus t



Bits error versus l



Bits error versus k
if t < -1.2569790059980338e-132 or 1.0340901995183787e-142 < t Initial program 25.5
Simplified25.5
rmApplied add-cube-cbrt25.7
Applied unpow-prod-down25.7
Applied times-frac17.8
Applied associate-*l*15.4
rmApplied add-cube-cbrt15.4
Applied unpow-prod-down15.4
Applied times-frac11.1
rmApplied associate-*l*9.9
rmApplied tan-quot9.9
Applied associate-*r/9.9
Simplified8.1
if -1.2569790059980338e-132 < t < 1.0340901995183787e-142Initial program 64.0
Simplified64.0
rmApplied add-cube-cbrt64.0
Applied unpow-prod-down64.0
Applied times-frac60.1
Applied associate-*l*60.1
rmApplied add-cube-cbrt60.1
Applied unpow-prod-down60.1
Applied times-frac49.6
rmApplied associate-*l*49.6
Taylor expanded around 0 42.8
Final simplification14.4
herbie shell --seed 2019350 +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))))