\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}\;k \leq -3.6001585920385914 \cdot 10^{-53} \lor \neg \left(k \leq 1.2891079698145107 \cdot 10^{-134}\right):\\
\;\;\;\;\left|\frac{\ell}{k}\right| \cdot \left(\left|\frac{\ell}{k}\right| \cdot \frac{2}{\frac{t \cdot {\sin k}^{2}}{\cos k}}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{\ell}{k} \cdot \frac{\ell}{k}\right) \cdot \frac{2}{\frac{\sin k \cdot \left(t \cdot \sin k\right)}{\cos k}}\\
\end{array}(FPCore (t l k) :precision binary64 (/ 2.0 (* (* (* (/ (pow t 3.0) (* l l)) (sin k)) (tan k)) (- (+ 1.0 (pow (/ k t) 2.0)) 1.0))))
(FPCore (t l k)
:precision binary64
(if (or (<= k -3.6001585920385914e-53) (not (<= k 1.2891079698145107e-134)))
(*
(fabs (/ l k))
(* (fabs (/ l k)) (/ 2.0 (/ (* t (pow (sin k) 2.0)) (cos k)))))
(* (* (/ l k) (/ l k)) (/ 2.0 (/ (* (sin k) (* t (sin k))) (cos k))))))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 tmp;
if ((k <= -3.6001585920385914e-53) || !(k <= 1.2891079698145107e-134)) {
tmp = fabs(l / k) * (fabs(l / k) * (2.0 / ((t * pow(sin(k), 2.0)) / cos(k))));
} else {
tmp = ((l / k) * (l / k)) * (2.0 / ((sin(k) * (t * sin(k))) / cos(k)));
}
return tmp;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if k < -3.60015859203859141e-53 or 1.28910796981451067e-134 < k Initial program 46.5
Simplified38.3
Taylor expanded around 0 20.5
Simplified20.5
rmApplied times-frac_binary6420.0
Applied *-un-lft-identity_binary6420.0
Applied times-frac_binary6420.1
Simplified20.0
rmApplied add-sqr-sqrt_binary6420.0
Simplified20.0
Simplified7.1
rmApplied associate-*l*_binary641.3
if -3.60015859203859141e-53 < k < 1.28910796981451067e-134Initial program 63.6
Simplified60.3
Taylor expanded around 0 49.5
Simplified49.5
rmApplied times-frac_binary6443.0
Applied *-un-lft-identity_binary6443.0
Applied times-frac_binary6443.1
Simplified43.0
rmApplied add-sqr-sqrt_binary6443.1
Simplified43.0
Simplified31.5
rmApplied unpow2_binary6431.5
Applied associate-*r*_binary6416.4
Final simplification2.9
herbie shell --seed 2021118
(FPCore (t l k)
:name "Toniolo and Linder, Equation (10-)"
:precision binary64
(/ 2.0 (* (* (* (/ (pow t 3.0) (* l l)) (sin k)) (tan k)) (- (+ 1.0 (pow (/ k t) 2.0)) 1.0))))