\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \left(\tan \left(\sqrt{\pi} \cdot \left(\ell \cdot \left(\sqrt{\sqrt{\pi}} \cdot \sqrt{\sqrt{\pi}}\right)\right)\right) \cdot \frac{\sqrt{1}}{F}\right) \cdot \frac{\sqrt{1}}{F}double f(double F, double l) {
double r926799 = atan2(1.0, 0.0);
double r926800 = l;
double r926801 = r926799 * r926800;
double r926802 = 1.0;
double r926803 = F;
double r926804 = r926803 * r926803;
double r926805 = r926802 / r926804;
double r926806 = tan(r926801);
double r926807 = r926805 * r926806;
double r926808 = r926801 - r926807;
return r926808;
}
double f(double F, double l) {
double r926809 = atan2(1.0, 0.0);
double r926810 = l;
double r926811 = r926809 * r926810;
double r926812 = sqrt(r926809);
double r926813 = sqrt(r926812);
double r926814 = r926813 * r926813;
double r926815 = r926810 * r926814;
double r926816 = r926812 * r926815;
double r926817 = tan(r926816);
double r926818 = 1.0;
double r926819 = sqrt(r926818);
double r926820 = F;
double r926821 = r926819 / r926820;
double r926822 = r926817 * r926821;
double r926823 = r926822 * r926821;
double r926824 = r926811 - r926823;
return r926824;
}



Bits error versus F



Bits error versus l
Results
Initial program 16.8
rmApplied add-sqr-sqrt16.8
Applied times-frac16.9
Applied associate-*l*12.7
rmApplied add-sqr-sqrt12.8
Applied associate-*l*12.8
rmApplied add-sqr-sqrt12.8
Applied sqrt-prod12.7
Final simplification12.7
herbie shell --seed 2019174
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
(- (* PI l) (* (/ 1.0 (* F F)) (tan (* PI l)))))