\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 4.18838592989303695132438800625329553817 \cdot 10^{-248}:\\
\;\;\;\;2 \cdot \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 \frac{\frac{\cos k}{\frac{\frac{{\left(\sqrt[3]{\sin k}\right)}^{4}}{\ell}}{\ell}}}{{\left(\sqrt[3]{\sin k}\right)}^{2}}\right)\\
\mathbf{elif}\;\ell \cdot \ell \le 5.603600301497313251444735398660715198036 \cdot 10^{283}:\\
\;\;\;\;2 \cdot \left(\left({\left(\frac{1}{{k}^{\left(\frac{2}{2}\right)} \cdot {t}^{1}}\right)}^{1} \cdot \frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right) \cdot {\left(\frac{\sqrt{1}}{{k}^{\left(\frac{2}{2}\right)}}\right)}^{1}\right)\\
\mathbf{else}:\\
\;\;\;\;2 \cdot \log \left({\left(e^{{\left(\frac{1}{{t}^{1} \cdot {k}^{2}}\right)}^{1}}\right)}^{\left(\frac{\cos k \cdot {\ell}^{2}}{{\left(\sin k\right)}^{2}}\right)}\right)\\
\end{array}double f(double t, double l, double k) {
double r92106 = 2.0;
double r92107 = t;
double r92108 = 3.0;
double r92109 = pow(r92107, r92108);
double r92110 = l;
double r92111 = r92110 * r92110;
double r92112 = r92109 / r92111;
double r92113 = k;
double r92114 = sin(r92113);
double r92115 = r92112 * r92114;
double r92116 = tan(r92113);
double r92117 = r92115 * r92116;
double r92118 = 1.0;
double r92119 = r92113 / r92107;
double r92120 = pow(r92119, r92106);
double r92121 = r92118 + r92120;
double r92122 = r92121 - r92118;
double r92123 = r92117 * r92122;
double r92124 = r92106 / r92123;
return r92124;
}
double f(double t, double l, double k) {
double r92125 = l;
double r92126 = r92125 * r92125;
double r92127 = 4.188385929893037e-248;
bool r92128 = r92126 <= r92127;
double r92129 = 2.0;
double r92130 = 1.0;
double r92131 = k;
double r92132 = 2.0;
double r92133 = r92129 / r92132;
double r92134 = pow(r92131, r92133);
double r92135 = t;
double r92136 = 1.0;
double r92137 = pow(r92135, r92136);
double r92138 = r92134 * r92137;
double r92139 = r92134 * r92138;
double r92140 = r92130 / r92139;
double r92141 = pow(r92140, r92136);
double r92142 = cos(r92131);
double r92143 = sin(r92131);
double r92144 = cbrt(r92143);
double r92145 = 4.0;
double r92146 = pow(r92144, r92145);
double r92147 = r92146 / r92125;
double r92148 = r92147 / r92125;
double r92149 = r92142 / r92148;
double r92150 = pow(r92144, r92132);
double r92151 = r92149 / r92150;
double r92152 = r92141 * r92151;
double r92153 = r92129 * r92152;
double r92154 = 5.603600301497313e+283;
bool r92155 = r92126 <= r92154;
double r92156 = r92130 / r92138;
double r92157 = pow(r92156, r92136);
double r92158 = pow(r92125, r92132);
double r92159 = r92142 * r92158;
double r92160 = pow(r92143, r92132);
double r92161 = r92159 / r92160;
double r92162 = r92157 * r92161;
double r92163 = sqrt(r92130);
double r92164 = r92163 / r92134;
double r92165 = pow(r92164, r92136);
double r92166 = r92162 * r92165;
double r92167 = r92129 * r92166;
double r92168 = pow(r92131, r92129);
double r92169 = r92137 * r92168;
double r92170 = r92130 / r92169;
double r92171 = pow(r92170, r92136);
double r92172 = exp(r92171);
double r92173 = pow(r92172, r92161);
double r92174 = log(r92173);
double r92175 = r92129 * r92174;
double r92176 = r92155 ? r92167 : r92175;
double r92177 = r92128 ? r92153 : r92176;
return r92177;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if (* l l) < 4.188385929893037e-248Initial program 46.3
Simplified37.6
Taylor expanded around inf 17.9
rmApplied sqr-pow17.9
Applied associate-*l*17.9
rmApplied add-cube-cbrt17.9
Applied unpow-prod-down17.9
Applied associate-/r*17.4
Simplified11.6
if 4.188385929893037e-248 < (* l l) < 5.603600301497313e+283Initial program 44.1
Simplified34.5
Taylor expanded around inf 11.3
rmApplied sqr-pow11.3
Applied associate-*l*6.8
rmApplied add-sqr-sqrt6.8
Applied times-frac6.4
Applied unpow-prod-down6.4
Applied associate-*l*2.9
Simplified2.9
rmApplied *-commutative2.9
if 5.603600301497313e+283 < (* l l) Initial program 63.2
Simplified62.7
Taylor expanded around inf 61.9
rmApplied sqr-pow61.9
Applied associate-*l*61.2
rmApplied add-log-exp63.3
Simplified58.8
Final simplification16.0
herbie shell --seed 2019354
(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))))