\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(\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 r12469 = atan2(1.0, 0.0);
double r12470 = l;
double r12471 = r12469 * r12470;
double r12472 = 1.0;
double r12473 = F;
double r12474 = r12473 * r12473;
double r12475 = r12472 / r12474;
double r12476 = tan(r12471);
double r12477 = r12475 * r12476;
double r12478 = r12471 - r12477;
return r12478;
}
double f(double F, double l) {
double r12479 = atan2(1.0, 0.0);
double r12480 = l;
double r12481 = r12479 * r12480;
double r12482 = 1.0;
double r12483 = F;
double r12484 = r12482 / r12483;
double r12485 = 1.0;
double r12486 = r12485 / r12483;
double r12487 = sqrt(r12479);
double r12488 = sqrt(r12487);
double r12489 = r12488 * r12488;
double r12490 = r12489 * r12480;
double r12491 = r12489 * r12490;
double r12492 = tan(r12491);
double r12493 = r12486 * r12492;
double r12494 = r12484 * r12493;
double r12495 = r12481 - r12494;
return r12495;
}



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
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)))))