\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\sqrt{1}}{\frac{F}{\tan \left(\pi \cdot \ell\right)}} \cdot \frac{\sqrt{1}}{F}double f(double F, double l) {
double r1004772 = atan2(1.0, 0.0);
double r1004773 = l;
double r1004774 = r1004772 * r1004773;
double r1004775 = 1.0;
double r1004776 = F;
double r1004777 = r1004776 * r1004776;
double r1004778 = r1004775 / r1004777;
double r1004779 = tan(r1004774);
double r1004780 = r1004778 * r1004779;
double r1004781 = r1004774 - r1004780;
return r1004781;
}
double f(double F, double l) {
double r1004782 = atan2(1.0, 0.0);
double r1004783 = l;
double r1004784 = r1004782 * r1004783;
double r1004785 = 1.0;
double r1004786 = sqrt(r1004785);
double r1004787 = F;
double r1004788 = tan(r1004784);
double r1004789 = r1004787 / r1004788;
double r1004790 = r1004786 / r1004789;
double r1004791 = r1004786 / r1004787;
double r1004792 = r1004790 * r1004791;
double r1004793 = r1004784 - r1004792;
return r1004793;
}



Bits error versus F



Bits error versus l
Results
Initial program 16.6
rmApplied add-sqr-sqrt16.6
Applied times-frac16.7
Applied associate-*l*12.4
rmApplied associate-*l/12.3
rmApplied associate-/l*12.4
Final simplification12.4
herbie shell --seed 2019170
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
(- (* PI l) (* (/ 1.0 (* F F)) (tan (* PI l)))))