\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \left(\tan \left(\left(\sqrt{\sqrt{\pi}} \cdot \sqrt{\sqrt{\pi}}\right) \cdot \left(\ell \cdot \left(\sqrt{\sqrt{\pi}} \cdot \sqrt{\sqrt{\pi}}\right)\right)\right) \cdot \frac{\sqrt{1}}{F}\right) \cdot \frac{\sqrt{1}}{F}double f(double F, double l) {
double r1018371 = atan2(1.0, 0.0);
double r1018372 = l;
double r1018373 = r1018371 * r1018372;
double r1018374 = 1.0;
double r1018375 = F;
double r1018376 = r1018375 * r1018375;
double r1018377 = r1018374 / r1018376;
double r1018378 = tan(r1018373);
double r1018379 = r1018377 * r1018378;
double r1018380 = r1018373 - r1018379;
return r1018380;
}
double f(double F, double l) {
double r1018381 = atan2(1.0, 0.0);
double r1018382 = l;
double r1018383 = r1018381 * r1018382;
double r1018384 = sqrt(r1018381);
double r1018385 = sqrt(r1018384);
double r1018386 = r1018385 * r1018385;
double r1018387 = r1018382 * r1018386;
double r1018388 = r1018386 * r1018387;
double r1018389 = tan(r1018388);
double r1018390 = 1.0;
double r1018391 = sqrt(r1018390);
double r1018392 = F;
double r1018393 = r1018391 / r1018392;
double r1018394 = r1018389 * r1018393;
double r1018395 = r1018394 * r1018393;
double r1018396 = r1018383 - r1018395;
return r1018396;
}



Bits error versus F



Bits error versus l
Results
Initial program 16.9
rmApplied add-sqr-sqrt16.9
Applied times-frac16.9
Applied associate-*l*12.5
rmApplied add-sqr-sqrt12.5
Applied associate-*l*12.5
rmApplied add-sqr-sqrt12.5
Applied sqrt-prod12.5
rmApplied add-sqr-sqrt12.5
Applied sqrt-prod12.5
Final simplification12.5
herbie shell --seed 2019171
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
(- (* PI l) (* (/ 1.0 (* F F)) (tan (* PI l)))))