\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 \leq -4.0656703024351655 \cdot 10^{+118}:\\
\;\;\;\;\frac{2}{\left(\left(t \cdot \left(\frac{t}{\ell} \cdot \left(\frac{t}{\ell} \cdot \sin k\right)\right)\right) \cdot \tan k\right) \cdot \left(2 + {\left(\frac{k}{t}\right)}^{2}\right)}\\
\mathbf{elif}\;t \leq -9.309408527201053 \cdot 10^{-42}:\\
\;\;\;\;\frac{2}{\frac{\left(2 + {\left(\frac{k}{t}\right)}^{2}\right) \cdot \left(\tan k \cdot \frac{{t}^{3}}{\frac{\ell}{\sin k}}\right)}{\ell}}\\
\mathbf{elif}\;t \leq 3.4832430358521343 \cdot 10^{-99}:\\
\;\;\;\;\frac{2}{\frac{\left(k \cdot k\right) \cdot \left(t \cdot {\sin k}^{2}\right)}{\left(\ell \cdot \ell\right) \cdot \cos k}}\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{\left(2 + {\left(\frac{k}{t}\right)}^{2}\right) \cdot \left(t \cdot \left(\left(\frac{t}{\ell} \cdot \left(\frac{t}{\ell} \cdot \sin k\right)\right) \cdot \tan k\right)\right)}\\
\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 (<= t -4.0656703024351655e+118)
(/
2.0
(*
(* (* t (* (/ t l) (* (/ t l) (sin k)))) (tan k))
(+ 2.0 (pow (/ k t) 2.0))))
(if (<= t -9.309408527201053e-42)
(/
2.0
(/
(* (+ 2.0 (pow (/ k t) 2.0)) (* (tan k) (/ (pow t 3.0) (/ l (sin k)))))
l))
(if (<= t 3.4832430358521343e-99)
(/ 2.0 (/ (* (* k k) (* t (pow (sin k) 2.0))) (* (* l l) (cos k))))
(/
2.0
(*
(+ 2.0 (pow (/ k t) 2.0))
(* t (* (* (/ t l) (* (/ t l) (sin k))) (tan 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 (t <= -4.0656703024351655e+118) {
tmp = 2.0 / (((t * ((t / l) * ((t / l) * sin(k)))) * tan(k)) * (2.0 + pow((k / t), 2.0)));
} else if (t <= -9.309408527201053e-42) {
tmp = 2.0 / (((2.0 + pow((k / t), 2.0)) * (tan(k) * (pow(t, 3.0) / (l / sin(k))))) / l);
} else if (t <= 3.4832430358521343e-99) {
tmp = 2.0 / (((k * k) * (t * pow(sin(k), 2.0))) / ((l * l) * cos(k)));
} else {
tmp = 2.0 / ((2.0 + pow((k / t), 2.0)) * (t * (((t / l) * ((t / l) * sin(k))) * tan(k))));
}
return tmp;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if t < -4.0656703024351655e118Initial program 23.3
Simplified23.3
rmApplied unpow3_binary64_48523.3
Applied times-frac_binary64_42516.8
Applied associate-*l*_binary64_36016.0
rmApplied *-un-lft-identity_binary64_41916.0
Applied times-frac_binary64_4257.0
Simplified7.0
rmApplied associate-*l*_binary64_3604.9
if -4.0656703024351655e118 < t < -9.3094085272010534e-42Initial program 21.8
Simplified21.8
rmApplied unpow3_binary64_48521.8
Applied times-frac_binary64_42516.2
Applied associate-*l*_binary64_36010.8
rmApplied associate-*l/_binary64_36210.7
Applied associate-*l/_binary64_3629.5
Applied associate-*l/_binary64_3628.5
Simplified10.4
if -9.3094085272010534e-42 < t < 3.48324303585213428e-99Initial program 57.8
Simplified57.8
Taylor expanded around 0 26.8
Simplified26.8
if 3.48324303585213428e-99 < t Initial program 24.2
Simplified24.2
rmApplied unpow3_binary64_48524.2
Applied times-frac_binary64_42517.1
Applied associate-*l*_binary64_36014.8
rmApplied *-un-lft-identity_binary64_41914.8
Applied times-frac_binary64_4259.7
Simplified9.7
rmApplied associate-*l*_binary64_3609.4
rmApplied associate-*l*_binary64_3608.9
Final simplification13.2
herbie shell --seed 2020344
(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))))