\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 5.8108209154164435 \cdot 10^{288}:\\
\;\;\;\;2 \cdot \left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1} \cdot \left(\frac{\frac{\cos k \cdot {\ell}^{2}}{\sin k}}{\sin k} \cdot {\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1}\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{2}{\left(\left(\frac{{\left(\sqrt[3]{t} \cdot \sqrt[3]{t}\right)}^{3}}{\ell} \cdot \frac{{\left(\sqrt[3]{t}\right)}^{3}}{\ell}\right) \cdot \sin k\right) \cdot \tan k}}{{\left(\frac{k}{t}\right)}^{2}}\\
\end{array}double f(double t, double l, double k) {
double r94151 = 2.0;
double r94152 = t;
double r94153 = 3.0;
double r94154 = pow(r94152, r94153);
double r94155 = l;
double r94156 = r94155 * r94155;
double r94157 = r94154 / r94156;
double r94158 = k;
double r94159 = sin(r94158);
double r94160 = r94157 * r94159;
double r94161 = tan(r94158);
double r94162 = r94160 * r94161;
double r94163 = 1.0;
double r94164 = r94158 / r94152;
double r94165 = pow(r94164, r94151);
double r94166 = r94163 + r94165;
double r94167 = r94166 - r94163;
double r94168 = r94162 * r94167;
double r94169 = r94151 / r94168;
return r94169;
}
double f(double t, double l, double k) {
double r94170 = l;
double r94171 = r94170 * r94170;
double r94172 = 5.810820915416443e+288;
bool r94173 = r94171 <= r94172;
double r94174 = 2.0;
double r94175 = 1.0;
double r94176 = k;
double r94177 = 2.0;
double r94178 = r94174 / r94177;
double r94179 = pow(r94176, r94178);
double r94180 = r94175 / r94179;
double r94181 = 1.0;
double r94182 = pow(r94180, r94181);
double r94183 = cos(r94176);
double r94184 = pow(r94170, r94177);
double r94185 = r94183 * r94184;
double r94186 = sin(r94176);
double r94187 = r94185 / r94186;
double r94188 = r94187 / r94186;
double r94189 = t;
double r94190 = pow(r94189, r94181);
double r94191 = r94179 * r94190;
double r94192 = r94175 / r94191;
double r94193 = pow(r94192, r94181);
double r94194 = r94188 * r94193;
double r94195 = r94182 * r94194;
double r94196 = r94174 * r94195;
double r94197 = cbrt(r94189);
double r94198 = r94197 * r94197;
double r94199 = 3.0;
double r94200 = pow(r94198, r94199);
double r94201 = r94200 / r94170;
double r94202 = pow(r94197, r94199);
double r94203 = r94202 / r94170;
double r94204 = r94201 * r94203;
double r94205 = r94204 * r94186;
double r94206 = tan(r94176);
double r94207 = r94205 * r94206;
double r94208 = r94174 / r94207;
double r94209 = r94176 / r94189;
double r94210 = pow(r94209, r94174);
double r94211 = r94208 / r94210;
double r94212 = r94173 ? r94196 : r94211;
return r94212;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if (* l l) < 5.810820915416443e+288Initial program 45.4
Simplified36.0
Taylor expanded around inf 14.5
rmApplied sqr-pow14.5
Applied associate-*l*12.1
rmApplied *-un-lft-identity12.1
Applied times-frac12.0
Applied unpow-prod-down12.0
Applied associate-*l*10.1
Simplified10.1
rmApplied unpow210.1
Applied associate-/r*9.8
if 5.810820915416443e+288 < (* l l) Initial program 62.9
Simplified62.5
rmApplied add-cube-cbrt62.5
Applied unpow-prod-down62.5
Applied times-frac47.6
Final simplification16.0
herbie shell --seed 2020047
(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))))