\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\sqrt{1}}{F} \cdot \left(\frac{\sqrt{1}}{F} \cdot \tan \left(\left(\sqrt{\sqrt{\pi}} \cdot \sqrt{\sqrt{\pi}}\right) \cdot \left(\left(\sqrt{\sqrt{\pi}} \cdot \sqrt{\sqrt{\pi}}\right) \cdot \ell\right)\right)\right)double f(double F, double l) {
double r13816 = atan2(1.0, 0.0);
double r13817 = l;
double r13818 = r13816 * r13817;
double r13819 = 1.0;
double r13820 = F;
double r13821 = r13820 * r13820;
double r13822 = r13819 / r13821;
double r13823 = tan(r13818);
double r13824 = r13822 * r13823;
double r13825 = r13818 - r13824;
return r13825;
}
double f(double F, double l) {
double r13826 = atan2(1.0, 0.0);
double r13827 = l;
double r13828 = r13826 * r13827;
double r13829 = 1.0;
double r13830 = sqrt(r13829);
double r13831 = F;
double r13832 = r13830 / r13831;
double r13833 = sqrt(r13826);
double r13834 = sqrt(r13833);
double r13835 = r13834 * r13834;
double r13836 = r13835 * r13827;
double r13837 = r13835 * r13836;
double r13838 = tan(r13837);
double r13839 = r13832 * r13838;
double r13840 = r13832 * r13839;
double r13841 = r13828 - r13840;
return r13841;
}



Bits error versus F



Bits error versus l
Results
Initial program 16.5
rmApplied add-sqr-sqrt16.5
Applied times-frac16.5
Applied associate-*l*12.1
rmApplied add-sqr-sqrt12.2
Applied associate-*l*12.1
rmApplied add-sqr-sqrt12.1
Applied sqrt-prod12.1
rmApplied add-sqr-sqrt12.1
Applied sqrt-prod12.1
Final simplification12.1
herbie shell --seed 2020047 +o rules:numerics
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
:precision binary64
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))