\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.8851239965119804 \cdot 10^{+28}:\\
\;\;\;\;\frac{\frac{\sqrt{2}}{\sin k}}{\frac{t}{\ell}} \cdot \frac{\sqrt{2}}{\frac{t}{\ell} \cdot \left(\frac{\frac{\sin k}{\cos k} \cdot \left(k \cdot k\right)}{t} + \frac{2 \cdot t}{\frac{\cos k}{\sin k}}\right)}\\
\mathbf{elif}\;t \le 8.333143050057771 \cdot 10^{+130}:\\
\;\;\;\;\frac{\frac{2}{\sin k}}{\frac{t}{\ell} \cdot \left(\frac{t \cdot t}{\ell} \cdot \left(\frac{\sin k}{\cos k} \cdot 2\right) + \frac{\sin k}{\frac{\cos k}{k} \cdot \frac{\ell}{k}}\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{\frac{2}{\sin k}}{\left(8 + \left(\left(\frac{k}{t} \cdot \frac{k}{t}\right) \cdot \frac{k}{t}\right) \cdot \left(\left(\frac{k}{t} \cdot \frac{k}{t}\right) \cdot \frac{k}{t}\right)\right) \cdot \left(\frac{t}{\ell} \cdot \left(t \cdot \tan k\right)\right)}}{\frac{t}{\ell}} \cdot \left(\left(4 - 2 \cdot \left(\frac{k}{t} \cdot \frac{k}{t}\right)\right) + \left(\frac{k}{t} \cdot \frac{k}{t}\right) \cdot \left(\frac{k}{t} \cdot \frac{k}{t}\right)\right)\\
\end{array}double f(double t, double l, double k) {
double r3410189 = 2.0;
double r3410190 = t;
double r3410191 = 3.0;
double r3410192 = pow(r3410190, r3410191);
double r3410193 = l;
double r3410194 = r3410193 * r3410193;
double r3410195 = r3410192 / r3410194;
double r3410196 = k;
double r3410197 = sin(r3410196);
double r3410198 = r3410195 * r3410197;
double r3410199 = tan(r3410196);
double r3410200 = r3410198 * r3410199;
double r3410201 = 1.0;
double r3410202 = r3410196 / r3410190;
double r3410203 = pow(r3410202, r3410189);
double r3410204 = r3410201 + r3410203;
double r3410205 = r3410204 + r3410201;
double r3410206 = r3410200 * r3410205;
double r3410207 = r3410189 / r3410206;
return r3410207;
}
double f(double t, double l, double k) {
double r3410208 = t;
double r3410209 = -1.8851239965119804e+28;
bool r3410210 = r3410208 <= r3410209;
double r3410211 = 2.0;
double r3410212 = sqrt(r3410211);
double r3410213 = k;
double r3410214 = sin(r3410213);
double r3410215 = r3410212 / r3410214;
double r3410216 = l;
double r3410217 = r3410208 / r3410216;
double r3410218 = r3410215 / r3410217;
double r3410219 = cos(r3410213);
double r3410220 = r3410214 / r3410219;
double r3410221 = r3410213 * r3410213;
double r3410222 = r3410220 * r3410221;
double r3410223 = r3410222 / r3410208;
double r3410224 = r3410211 * r3410208;
double r3410225 = r3410219 / r3410214;
double r3410226 = r3410224 / r3410225;
double r3410227 = r3410223 + r3410226;
double r3410228 = r3410217 * r3410227;
double r3410229 = r3410212 / r3410228;
double r3410230 = r3410218 * r3410229;
double r3410231 = 8.333143050057771e+130;
bool r3410232 = r3410208 <= r3410231;
double r3410233 = r3410211 / r3410214;
double r3410234 = r3410208 * r3410208;
double r3410235 = r3410234 / r3410216;
double r3410236 = r3410220 * r3410211;
double r3410237 = r3410235 * r3410236;
double r3410238 = r3410219 / r3410213;
double r3410239 = r3410216 / r3410213;
double r3410240 = r3410238 * r3410239;
double r3410241 = r3410214 / r3410240;
double r3410242 = r3410237 + r3410241;
double r3410243 = r3410217 * r3410242;
double r3410244 = r3410233 / r3410243;
double r3410245 = 8.0;
double r3410246 = r3410213 / r3410208;
double r3410247 = r3410246 * r3410246;
double r3410248 = r3410247 * r3410246;
double r3410249 = r3410248 * r3410248;
double r3410250 = r3410245 + r3410249;
double r3410251 = tan(r3410213);
double r3410252 = r3410208 * r3410251;
double r3410253 = r3410217 * r3410252;
double r3410254 = r3410250 * r3410253;
double r3410255 = r3410233 / r3410254;
double r3410256 = r3410255 / r3410217;
double r3410257 = 4.0;
double r3410258 = r3410211 * r3410247;
double r3410259 = r3410257 - r3410258;
double r3410260 = r3410247 * r3410247;
double r3410261 = r3410259 + r3410260;
double r3410262 = r3410256 * r3410261;
double r3410263 = r3410232 ? r3410244 : r3410262;
double r3410264 = r3410210 ? r3410230 : r3410263;
return r3410264;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if t < -1.8851239965119804e+28Initial program 21.7
Simplified10.3
rmApplied div-inv10.3
Applied times-frac10.3
Applied associate-/l*10.4
Simplified7.9
Taylor expanded around inf 9.9
Simplified9.9
rmApplied associate-*r*8.0
rmApplied *-un-lft-identity8.0
Applied add-sqr-sqrt8.1
Applied times-frac8.1
Applied times-frac4.5
Simplified4.6
if -1.8851239965119804e+28 < t < 8.333143050057771e+130Initial program 40.3
Simplified30.1
rmApplied div-inv30.1
Applied times-frac30.1
Applied associate-/l*29.8
Simplified26.4
Taylor expanded around inf 24.2
Simplified23.7
rmApplied associate-*r*17.7
Taylor expanded around inf 15.8
Simplified11.4
if 8.333143050057771e+130 < t Initial program 21.4
Simplified9.6
rmApplied div-inv9.6
Applied times-frac9.6
Applied associate-/l*9.7
Simplified6.6
rmApplied flip3-+9.2
Applied associate-*l/9.2
Applied associate-*l/9.7
Applied associate-*l/9.7
Applied associate-/r/9.7
Simplified4.4
Final simplification8.1
herbie shell --seed 2019158
(FPCore (t l k)
:name "Toniolo and Linder, Equation (10+)"
(/ 2 (* (* (* (/ (pow t 3) (* l l)) (sin k)) (tan k)) (+ (+ 1 (pow (/ k t) 2)) 1))))