\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{1}{F} \cdot \left(\frac{1}{F} \cdot \tan \left(\sqrt{\pi} \cdot \left(\sqrt{\pi} \cdot \ell\right)\right)\right)double f(double F, double l) {
double r13945 = atan2(1.0, 0.0);
double r13946 = l;
double r13947 = r13945 * r13946;
double r13948 = 1.0;
double r13949 = F;
double r13950 = r13949 * r13949;
double r13951 = r13948 / r13950;
double r13952 = tan(r13947);
double r13953 = r13951 * r13952;
double r13954 = r13947 - r13953;
return r13954;
}
double f(double F, double l) {
double r13955 = atan2(1.0, 0.0);
double r13956 = l;
double r13957 = r13955 * r13956;
double r13958 = 1.0;
double r13959 = F;
double r13960 = r13958 / r13959;
double r13961 = 1.0;
double r13962 = r13961 / r13959;
double r13963 = sqrt(r13955);
double r13964 = r13963 * r13956;
double r13965 = r13963 * r13964;
double r13966 = tan(r13965);
double r13967 = r13962 * r13966;
double r13968 = r13960 * r13967;
double r13969 = r13957 - r13968;
return r13969;
}



Bits error versus F



Bits error versus l
Results
Initial program 16.4
rmApplied *-un-lft-identity16.4
Applied times-frac16.4
Applied associate-*l*12.5
rmApplied add-sqr-sqrt12.5
Applied associate-*l*12.5
Final simplification12.5
herbie shell --seed 2020081
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
:precision binary64
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))