\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\frac{\frac{1}{F}}{\frac{1}{\tan \left(\pi \cdot \ell\right)}}}{F}double f(double F, double l) {
double r453421 = atan2(1.0, 0.0);
double r453422 = l;
double r453423 = r453421 * r453422;
double r453424 = 1.0;
double r453425 = F;
double r453426 = r453425 * r453425;
double r453427 = r453424 / r453426;
double r453428 = tan(r453423);
double r453429 = r453427 * r453428;
double r453430 = r453423 - r453429;
return r453430;
}
double f(double F, double l) {
double r453431 = atan2(1.0, 0.0);
double r453432 = l;
double r453433 = r453431 * r453432;
double r453434 = 1.0;
double r453435 = F;
double r453436 = r453434 / r453435;
double r453437 = tan(r453433);
double r453438 = r453434 / r453437;
double r453439 = r453436 / r453438;
double r453440 = r453439 / r453435;
double r453441 = r453433 - r453440;
return r453441;
}



Bits error versus F



Bits error versus l
Results
Initial program 8.5
Simplified0.7
rmApplied *-un-lft-identity0.7
Applied associate-/l*0.7
rmApplied div-inv0.7
Applied associate-/r*0.7
Final simplification0.7
herbie shell --seed 2019142 +o rules:numerics
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))