\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\tan \left(\pi \cdot \ell\right) \cdot \frac{1}{F}}{F}double f(double F, double l) {
double r572901 = atan2(1.0, 0.0);
double r572902 = l;
double r572903 = r572901 * r572902;
double r572904 = 1.0;
double r572905 = F;
double r572906 = r572905 * r572905;
double r572907 = r572904 / r572906;
double r572908 = tan(r572903);
double r572909 = r572907 * r572908;
double r572910 = r572903 - r572909;
return r572910;
}
double f(double F, double l) {
double r572911 = atan2(1.0, 0.0);
double r572912 = l;
double r572913 = r572911 * r572912;
double r572914 = tan(r572913);
double r572915 = 1.0;
double r572916 = F;
double r572917 = r572915 / r572916;
double r572918 = r572914 * r572917;
double r572919 = r572918 / r572916;
double r572920 = r572913 - r572919;
return r572920;
}



Bits error versus F



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