\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)}\left(\left(2 \cdot \frac{\cos k}{k \cdot \sin k}\right) \cdot \frac{\ell}{\sin k}\right) \cdot \frac{\frac{1}{\frac{t}{\ell}}}{k}double f(double t, double l, double k) {
double r5808762 = 2.0;
double r5808763 = t;
double r5808764 = 3.0;
double r5808765 = pow(r5808763, r5808764);
double r5808766 = l;
double r5808767 = r5808766 * r5808766;
double r5808768 = r5808765 / r5808767;
double r5808769 = k;
double r5808770 = sin(r5808769);
double r5808771 = r5808768 * r5808770;
double r5808772 = tan(r5808769);
double r5808773 = r5808771 * r5808772;
double r5808774 = 1.0;
double r5808775 = r5808769 / r5808763;
double r5808776 = pow(r5808775, r5808762);
double r5808777 = r5808774 + r5808776;
double r5808778 = r5808777 - r5808774;
double r5808779 = r5808773 * r5808778;
double r5808780 = r5808762 / r5808779;
return r5808780;
}
double f(double t, double l, double k) {
double r5808781 = 2.0;
double r5808782 = k;
double r5808783 = cos(r5808782);
double r5808784 = sin(r5808782);
double r5808785 = r5808782 * r5808784;
double r5808786 = r5808783 / r5808785;
double r5808787 = r5808781 * r5808786;
double r5808788 = l;
double r5808789 = r5808788 / r5808784;
double r5808790 = r5808787 * r5808789;
double r5808791 = 1.0;
double r5808792 = t;
double r5808793 = r5808792 / r5808788;
double r5808794 = r5808791 / r5808793;
double r5808795 = r5808794 / r5808782;
double r5808796 = r5808790 * r5808795;
return r5808796;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
Initial program 46.7
Simplified30.5
rmApplied *-un-lft-identity30.5
Applied times-frac30.5
Applied times-frac30.4
Applied times-frac20.3
rmApplied div-inv20.3
Applied *-un-lft-identity20.3
Applied *-un-lft-identity20.3
Applied times-frac20.2
Applied times-frac19.3
Applied times-frac13.2
Applied associate-*l*12.0
Taylor expanded around -inf 7.6
Taylor expanded around inf 7.5
Final simplification7.5
herbie shell --seed 2019152
(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))))