\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\tan \left(\pi \cdot \ell\right)}{F} \cdot \frac{1}{F}double f(double F, double l) {
double r1091527 = atan2(1.0, 0.0);
double r1091528 = l;
double r1091529 = r1091527 * r1091528;
double r1091530 = 1.0;
double r1091531 = F;
double r1091532 = r1091531 * r1091531;
double r1091533 = r1091530 / r1091532;
double r1091534 = tan(r1091529);
double r1091535 = r1091533 * r1091534;
double r1091536 = r1091529 - r1091535;
return r1091536;
}
double f(double F, double l) {
double r1091537 = atan2(1.0, 0.0);
double r1091538 = l;
double r1091539 = r1091537 * r1091538;
double r1091540 = tan(r1091539);
double r1091541 = F;
double r1091542 = r1091540 / r1091541;
double r1091543 = 1.0;
double r1091544 = r1091543 / r1091541;
double r1091545 = r1091542 * r1091544;
double r1091546 = r1091539 - r1091545;
return r1091546;
}



Bits error versus F



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