double code(double t, double l, double k) {
return ((double) (2.0 / ((double) (((double) (((double) (((double) (((double) pow(t, 3.0)) / ((double) (l * l)))) * ((double) sin(k)))) * ((double) tan(k)))) * ((double) (((double) (1.0 + ((double) pow(((double) (k / t)), 2.0)))) + 1.0))))));
}
double code(double t, double l, double k) {
double VAR;
if ((t <= -3.3013132694615146e-252)) {
VAR = ((double) (l * ((double) (((double) (1.0 / ((double) pow(((double) (((double) cbrt(t)) * ((double) cbrt(t)))), ((double) (3.0 / 2.0)))))) * ((double) (((double) (l / ((double) pow(((double) (((double) cbrt(t)) * ((double) cbrt(t)))), ((double) (3.0 / 2.0)))))) * ((double) (2.0 / ((double) (((double) sin(k)) * ((double) (((double) tan(k)) * ((double) (((double) (1.0 + ((double) (1.0 + ((double) pow(((double) (k / t)), 2.0)))))) * ((double) pow(((double) cbrt(t)), 3.0))))))))))))))));
} else {
double VAR_1;
if ((t <= 2.2844510146699535e-95)) {
VAR_1 = ((double) (l * ((double) (l * ((double) (2.0 / ((double) (((double) pow(((double) (((double) cbrt(t)) * ((double) cbrt(t)))), ((double) (3.0 / 2.0)))) * ((double) (((double) sin(k)) * ((double) (((double) (2.0 * ((double) (((double) pow(((double) (1.0 / ((double) pow(((double) (((double) pow(1.0, 2.0)) * ((double) (1.0 / ((double) pow(t, 2.0)))))), 1.0)))), 1.0)) * ((double) (((double) sin(k)) / ((double) cos(k)))))))) + ((double) (((double) sin(k)) * ((double) (((double) (k * k)) / ((double) cos(k))))))))))))))))));
} else {
VAR_1 = ((double) (l * ((double) (((double) (1.0 / ((double) pow(((double) (((double) cbrt(t)) * ((double) cbrt(t)))), ((double) (3.0 / 2.0)))))) * ((double) (l * ((double) (2.0 / ((double) (((double) (((double) tan(k)) * ((double) (((double) (1.0 + ((double) (1.0 + ((double) pow(((double) (k / t)), 2.0)))))) * ((double) pow(((double) cbrt(t)), 3.0)))))) * ((double) (((double) pow(((double) (((double) cbrt(t)) * ((double) cbrt(t)))), ((double) (3.0 / 2.0)))) * ((double) sin(k))))))))))))));
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus t



Bits error versus l



Bits error versus k
Results
if t < -3.3013132694615146e-252Initial program 30.8
Simplified31.5
rmApplied add-cube-cbrt31.6
Applied unpow-prod-down31.6
Applied associate-*l*29.0
Simplified26.3
rmApplied sqr-pow26.3
Applied associate-*l*22.2
Simplified20.6
rmApplied *-un-lft-identity20.6
Applied times-frac20.4
Applied associate-*l*18.3
Simplified18.8
rmApplied *-un-lft-identity18.8
Applied times-frac19.0
Applied associate-*r*17.9
Simplified17.9
if -3.3013132694615146e-252 < t < 2.2844510146699535e-95Initial program 62.7
Simplified62.6
rmApplied add-cube-cbrt62.6
Applied unpow-prod-down62.6
Applied associate-*l*56.4
Simplified56.4
rmApplied sqr-pow56.4
Applied associate-*l*40.1
Simplified40.1
Taylor expanded around inf 32.4
Simplified28.3
if 2.2844510146699535e-95 < t Initial program 23.5
Simplified24.7
rmApplied add-cube-cbrt24.9
Applied unpow-prod-down24.9
Applied associate-*l*24.1
Simplified20.3
rmApplied sqr-pow20.3
Applied associate-*l*18.8
Simplified16.8
rmApplied *-un-lft-identity16.8
Applied times-frac16.7
Applied associate-*l*14.4
Simplified15.3
rmApplied associate-*r*13.4
Final simplification17.7
herbie shell --seed 2020181
(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))))