\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 r14425 = atan2(1.0, 0.0);
double r14426 = l;
double r14427 = r14425 * r14426;
double r14428 = 1.0;
double r14429 = F;
double r14430 = r14429 * r14429;
double r14431 = r14428 / r14430;
double r14432 = tan(r14427);
double r14433 = r14431 * r14432;
double r14434 = r14427 - r14433;
return r14434;
}
double f(double F, double l) {
double r14435 = atan2(1.0, 0.0);
double r14436 = l;
double r14437 = r14435 * r14436;
double r14438 = 1.0;
double r14439 = sqrt(r14438);
double r14440 = F;
double r14441 = r14439 / r14440;
double r14442 = sqrt(r14435);
double r14443 = sqrt(r14442);
double r14444 = r14443 * r14443;
double r14445 = r14444 * r14436;
double r14446 = r14444 * r14445;
double r14447 = tan(r14446);
double r14448 = r14441 * r14447;
double r14449 = r14441 * r14448;
double r14450 = r14437 - r14449;
return r14450;
}



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.2
rmApplied add-sqr-sqrt12.3
Applied associate-*l*12.3
rmApplied add-sqr-sqrt12.3
Applied sqrt-prod12.2
rmApplied add-sqr-sqrt12.2
Applied sqrt-prod12.2
Final simplification12.2
herbie shell --seed 2019350
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
:precision binary64
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))