\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\frac{\tan \left(\pi \cdot \ell\right)}{F}}{F}double f(double F, double l) {
double r578875 = atan2(1.0, 0.0);
double r578876 = l;
double r578877 = r578875 * r578876;
double r578878 = 1.0;
double r578879 = F;
double r578880 = r578879 * r578879;
double r578881 = r578878 / r578880;
double r578882 = tan(r578877);
double r578883 = r578881 * r578882;
double r578884 = r578877 - r578883;
return r578884;
}
double f(double F, double l) {
double r578885 = atan2(1.0, 0.0);
double r578886 = l;
double r578887 = r578885 * r578886;
double r578888 = tan(r578887);
double r578889 = F;
double r578890 = r578888 / r578889;
double r578891 = r578890 / r578889;
double r578892 = r578887 - r578891;
return r578892;
}



Bits error versus F



Bits error versus l
Results
Initial program 9.0
Simplified8.5
rmApplied associate-/r*0.7
Final simplification0.7
herbie shell --seed 2019112
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))