\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{1}{F} \cdot \left(\frac{1}{F} \cdot \tan \left(\sqrt{\sqrt{\pi}} \cdot \left(\sqrt{\sqrt{\pi}} \cdot \left(\left(\sqrt{\sqrt{\pi}} \cdot \sqrt{\sqrt{\pi}}\right) \cdot \ell\right)\right)\right)\right)double f(double F, double l) {
double r12699 = atan2(1.0, 0.0);
double r12700 = l;
double r12701 = r12699 * r12700;
double r12702 = 1.0;
double r12703 = F;
double r12704 = r12703 * r12703;
double r12705 = r12702 / r12704;
double r12706 = tan(r12701);
double r12707 = r12705 * r12706;
double r12708 = r12701 - r12707;
return r12708;
}
double f(double F, double l) {
double r12709 = atan2(1.0, 0.0);
double r12710 = l;
double r12711 = r12709 * r12710;
double r12712 = 1.0;
double r12713 = F;
double r12714 = r12712 / r12713;
double r12715 = 1.0;
double r12716 = r12715 / r12713;
double r12717 = sqrt(r12709);
double r12718 = sqrt(r12717);
double r12719 = r12718 * r12718;
double r12720 = r12719 * r12710;
double r12721 = r12718 * r12720;
double r12722 = r12718 * r12721;
double r12723 = tan(r12722);
double r12724 = r12716 * r12723;
double r12725 = r12714 * r12724;
double r12726 = r12711 - r12725;
return r12726;
}



Bits error versus F



Bits error versus l
Results
Initial program 16.5
rmApplied *-un-lft-identity16.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
Applied associate-*l*12.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)))))