\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(\frac{\ell}{t} \cdot \cos k\right) \cdot \left(\frac{\frac{\sqrt{2}}{\sqrt{\frac{k}{t} \cdot \frac{k}{t} + 2}}}{\sin k} \cdot \frac{\frac{\sqrt{2}}{\sqrt{\frac{k}{t} \cdot \frac{k}{t} + 2}}}{\left(\frac{1}{\frac{\ell}{t}} \cdot \sin k\right) \cdot t}\right)double f(double t, double l, double k) {
double r1687606 = 2.0;
double r1687607 = t;
double r1687608 = 3.0;
double r1687609 = pow(r1687607, r1687608);
double r1687610 = l;
double r1687611 = r1687610 * r1687610;
double r1687612 = r1687609 / r1687611;
double r1687613 = k;
double r1687614 = sin(r1687613);
double r1687615 = r1687612 * r1687614;
double r1687616 = tan(r1687613);
double r1687617 = r1687615 * r1687616;
double r1687618 = 1.0;
double r1687619 = r1687613 / r1687607;
double r1687620 = pow(r1687619, r1687606);
double r1687621 = r1687618 + r1687620;
double r1687622 = r1687621 + r1687618;
double r1687623 = r1687617 * r1687622;
double r1687624 = r1687606 / r1687623;
return r1687624;
}
double f(double t, double l, double k) {
double r1687625 = l;
double r1687626 = t;
double r1687627 = r1687625 / r1687626;
double r1687628 = k;
double r1687629 = cos(r1687628);
double r1687630 = r1687627 * r1687629;
double r1687631 = 2.0;
double r1687632 = sqrt(r1687631);
double r1687633 = r1687628 / r1687626;
double r1687634 = r1687633 * r1687633;
double r1687635 = r1687634 + r1687631;
double r1687636 = sqrt(r1687635);
double r1687637 = r1687632 / r1687636;
double r1687638 = sin(r1687628);
double r1687639 = r1687637 / r1687638;
double r1687640 = 1.0;
double r1687641 = r1687640 / r1687627;
double r1687642 = r1687641 * r1687638;
double r1687643 = r1687642 * r1687626;
double r1687644 = r1687637 / r1687643;
double r1687645 = r1687639 * r1687644;
double r1687646 = r1687630 * r1687645;
return r1687646;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
Initial program 32.2
Simplified24.5
rmApplied associate-*l*20.4
rmApplied *-un-lft-identity20.4
Applied times-frac19.7
Applied associate-*r*17.5
rmApplied tan-quot17.5
Applied associate-*l/17.5
Applied frac-times16.6
Applied associate-*r/15.4
Applied associate-/r/14.0
rmApplied add-sqr-sqrt14.1
Applied add-sqr-sqrt14.1
Applied times-frac14.1
Applied times-frac13.8
Final simplification13.8
herbie shell --seed 2019128
(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))))