\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \left(\frac{1}{F} \cdot \tan \left(\pi \cdot \ell\right)\right) \cdot \frac{1}{F}double f(double F, double l) {
double r572414 = atan2(1.0, 0.0);
double r572415 = l;
double r572416 = r572414 * r572415;
double r572417 = 1.0;
double r572418 = F;
double r572419 = r572418 * r572418;
double r572420 = r572417 / r572419;
double r572421 = tan(r572416);
double r572422 = r572420 * r572421;
double r572423 = r572416 - r572422;
return r572423;
}
double f(double F, double l) {
double r572424 = atan2(1.0, 0.0);
double r572425 = l;
double r572426 = r572424 * r572425;
double r572427 = 1.0;
double r572428 = F;
double r572429 = r572427 / r572428;
double r572430 = tan(r572426);
double r572431 = r572429 * r572430;
double r572432 = r572431 * r572429;
double r572433 = r572426 - r572432;
return r572433;
}



Bits error versus F



Bits error versus l
Results
Initial program 8.8
Simplified8.3
rmApplied *-un-lft-identity8.3
Applied times-frac0.7
rmApplied div-inv0.8
Final simplification0.8
herbie shell --seed 2019119 +o rules:numerics
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))