\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \left(\frac{1}{F} \cdot \tan \left(\pi \cdot \ell\right)\right) \cdot \frac{1}{F}double f(double F, double l) {
double r740838 = atan2(1.0, 0.0);
double r740839 = l;
double r740840 = r740838 * r740839;
double r740841 = 1.0;
double r740842 = F;
double r740843 = r740842 * r740842;
double r740844 = r740841 / r740843;
double r740845 = tan(r740840);
double r740846 = r740844 * r740845;
double r740847 = r740840 - r740846;
return r740847;
}
double f(double F, double l) {
double r740848 = atan2(1.0, 0.0);
double r740849 = l;
double r740850 = r740848 * r740849;
double r740851 = 1.0;
double r740852 = F;
double r740853 = r740851 / r740852;
double r740854 = tan(r740850);
double r740855 = r740853 * r740854;
double r740856 = r740855 * r740853;
double r740857 = r740850 - r740856;
return r740857;
}



Bits error versus F



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