\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 -2.2439854096143383 \cdot 10^{120}:\\
\;\;\;\;2 \cdot \frac{\left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \cos k\right) \cdot \ell}{\frac{{\left(\sin k\right)}^{1}}{\frac{\ell}{\sin k}}}\\
\mathbf{elif}\;t \le -5.8071251107399111 \cdot 10^{-37}:\\
\;\;\;\;\frac{2 \cdot \ell}{{\left(\frac{k}{t}\right)}^{\left(\frac{2}{2}\right)}} \cdot \frac{\ell}{\left({\left(\frac{k}{t}\right)}^{\left(\frac{2}{2}\right)} \cdot \left({t}^{3} \cdot \tan k\right)\right) \cdot \sin k}\\
\mathbf{elif}\;t \le 1.4658926919355537 \cdot 10^{-19}:\\
\;\;\;\;2 \cdot \frac{\left({\left(\frac{\frac{1}{{k}^{\left(\frac{2}{2}\right)}}}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \cos k\right) \cdot \ell}{\frac{{\left(\sin k\right)}^{2}}{\ell}}\\
\mathbf{elif}\;t \le 1.09079912784831405 \cdot 10^{81}:\\
\;\;\;\;\frac{2 \cdot \ell}{{\left(\frac{k}{t}\right)}^{\left(\frac{2}{2}\right)}} \cdot \frac{\ell}{\left({\left(\frac{k}{t}\right)}^{\left(\frac{2}{2}\right)} \cdot \left({t}^{3} \cdot \tan k\right)\right) \cdot \sin k}\\
\mathbf{else}:\\
\;\;\;\;2 \cdot \frac{\left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot \left({k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}\right)}\right)}^{1} \cdot \cos k\right) \cdot \ell}{\frac{{\left(\sin k\right)}^{1}}{\frac{\ell}{\sin k}}}\\
\end{array}double code(double t, double l, double k) {
return (2.0 / ((((pow(t, 3.0) / (l * l)) * sin(k)) * tan(k)) * ((1.0 + pow((k / t), 2.0)) - 1.0)));
}
double code(double t, double l, double k) {
double VAR;
if ((t <= -2.2439854096143383e+120)) {
VAR = (2.0 * (((pow((1.0 / (pow(k, (2.0 / 2.0)) * (pow(k, (2.0 / 2.0)) * pow(t, 1.0)))), 1.0) * cos(k)) * l) / (pow(sin(k), 1.0) / (l / sin(k)))));
} else {
double VAR_1;
if ((t <= -5.807125110739911e-37)) {
VAR_1 = (((2.0 * l) / pow((k / t), (2.0 / 2.0))) * (l / ((pow((k / t), (2.0 / 2.0)) * (pow(t, 3.0) * tan(k))) * sin(k))));
} else {
double VAR_2;
if ((t <= 1.4658926919355537e-19)) {
VAR_2 = (2.0 * (((pow(((1.0 / pow(k, (2.0 / 2.0))) / (pow(k, (2.0 / 2.0)) * pow(t, 1.0))), 1.0) * cos(k)) * l) / (pow(sin(k), 2.0) / l)));
} else {
double VAR_3;
if ((t <= 1.090799127848314e+81)) {
VAR_3 = (((2.0 * l) / pow((k / t), (2.0 / 2.0))) * (l / ((pow((k / t), (2.0 / 2.0)) * (pow(t, 3.0) * tan(k))) * sin(k))));
} else {
VAR_3 = (2.0 * (((pow((1.0 / (pow(k, (2.0 / 2.0)) * (pow(k, (2.0 / 2.0)) * pow(t, 1.0)))), 1.0) * cos(k)) * l) / (pow(sin(k), 1.0) / (l / sin(k)))));
}
VAR_2 = VAR_3;
}
VAR_1 = VAR_2;
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if t < -2.2439854096143383e+120 or 1.090799127848314e+81 < t Initial program 52.0
Simplified37.8
Taylor expanded around inf 20.8
rmApplied unpow220.8
Applied associate-*r*20.8
Applied associate-/l*18.7
Applied associate-*r/13.9
Simplified13.9
rmApplied sqr-pow13.9
Applied associate-*l*13.9
rmApplied sqr-pow13.9
Applied associate-/l*10.5
Simplified10.5
if -2.2439854096143383e+120 < t < -5.807125110739911e-37 or 1.4658926919355537e-19 < t < 1.090799127848314e+81Initial program 31.8
Simplified22.6
rmApplied sqr-pow22.6
Applied associate-*l*22.2
Applied associate-*l*22.1
Applied associate-*r*22.1
Applied times-frac9.3
if -5.807125110739911e-37 < t < 1.4658926919355537e-19Initial program 53.1
Simplified52.3
Taylor expanded around inf 25.2
rmApplied unpow225.2
Applied associate-*r*25.2
Applied associate-/l*24.0
Applied associate-*r/19.9
Simplified19.9
rmApplied sqr-pow19.9
Applied associate-*l*11.5
rmApplied associate-/r*11.3
Final simplification10.6
herbie shell --seed 2020078 +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))))