\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)}\frac{\frac{\frac{-2}{\frac{k}{\ell}}}{\frac{k}{\ell} \cdot \left(\sin k \cdot t\right)}}{-\tan k}double f(double t, double l, double k) {
double r2393950 = 2.0;
double r2393951 = t;
double r2393952 = 3.0;
double r2393953 = pow(r2393951, r2393952);
double r2393954 = l;
double r2393955 = r2393954 * r2393954;
double r2393956 = r2393953 / r2393955;
double r2393957 = k;
double r2393958 = sin(r2393957);
double r2393959 = r2393956 * r2393958;
double r2393960 = tan(r2393957);
double r2393961 = r2393959 * r2393960;
double r2393962 = 1.0;
double r2393963 = r2393957 / r2393951;
double r2393964 = pow(r2393963, r2393950);
double r2393965 = r2393962 + r2393964;
double r2393966 = r2393965 - r2393962;
double r2393967 = r2393961 * r2393966;
double r2393968 = r2393950 / r2393967;
return r2393968;
}
double f(double t, double l, double k) {
double r2393969 = -2.0;
double r2393970 = k;
double r2393971 = l;
double r2393972 = r2393970 / r2393971;
double r2393973 = r2393969 / r2393972;
double r2393974 = sin(r2393970);
double r2393975 = t;
double r2393976 = r2393974 * r2393975;
double r2393977 = r2393972 * r2393976;
double r2393978 = r2393973 / r2393977;
double r2393979 = tan(r2393970);
double r2393980 = -r2393979;
double r2393981 = r2393978 / r2393980;
return r2393981;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
Initial program 46.7
Simplified29.3
rmApplied *-un-lft-identity29.3
Applied times-frac28.9
Applied times-frac17.9
Simplified17.9
Simplified11.6
Taylor expanded around -inf 11.5
Taylor expanded around -inf 2.9
rmApplied frac-2neg2.9
Simplified1.6
Final simplification1.6
herbie shell --seed 2019130 +o rules:numerics
(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))))