\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\frac{\frac{1}{F}}{\frac{1}{\tan \left(\pi \cdot \ell\right)}}}{F}double f(double F, double l) {
double r573543 = atan2(1.0, 0.0);
double r573544 = l;
double r573545 = r573543 * r573544;
double r573546 = 1.0;
double r573547 = F;
double r573548 = r573547 * r573547;
double r573549 = r573546 / r573548;
double r573550 = tan(r573545);
double r573551 = r573549 * r573550;
double r573552 = r573545 - r573551;
return r573552;
}
double f(double F, double l) {
double r573553 = atan2(1.0, 0.0);
double r573554 = l;
double r573555 = r573553 * r573554;
double r573556 = 1.0;
double r573557 = F;
double r573558 = r573556 / r573557;
double r573559 = tan(r573555);
double r573560 = r573556 / r573559;
double r573561 = r573558 / r573560;
double r573562 = r573561 / r573557;
double r573563 = r573555 - r573562;
return r573563;
}



Bits error versus F



Bits error versus l
Results
Initial program 8.5
Simplified8.0
rmApplied associate-/r*0.6
rmApplied *-un-lft-identity0.6
Applied associate-/l*0.7
rmApplied div-inv0.7
Applied associate-/r*0.7
Final simplification0.7
herbie shell --seed 2019132
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))