\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\pi \cdot \ell - \frac{\sqrt{1}}{F} \cdot \left(\sqrt{1} \cdot \frac{1}{\frac{F}{\tan \left(\pi \cdot \ell\right)}}\right)double f(double F, double l) {
double r16050 = atan2(1.0, 0.0);
double r16051 = l;
double r16052 = r16050 * r16051;
double r16053 = 1.0;
double r16054 = F;
double r16055 = r16054 * r16054;
double r16056 = r16053 / r16055;
double r16057 = tan(r16052);
double r16058 = r16056 * r16057;
double r16059 = r16052 - r16058;
return r16059;
}
double f(double F, double l) {
double r16060 = atan2(1.0, 0.0);
double r16061 = l;
double r16062 = r16060 * r16061;
double r16063 = 1.0;
double r16064 = sqrt(r16063);
double r16065 = F;
double r16066 = r16064 / r16065;
double r16067 = 1.0;
double r16068 = tan(r16062);
double r16069 = r16065 / r16068;
double r16070 = r16067 / r16069;
double r16071 = r16064 * r16070;
double r16072 = r16066 * r16071;
double r16073 = r16062 - r16072;
return r16073;
}



Bits error versus F



Bits error versus l
Results
Initial program 16.5
rmApplied add-sqr-sqrt16.5
Applied times-frac16.6
Applied associate-*l*12.4
rmApplied div-inv12.4
Applied associate-*l*12.4
Simplified12.4
rmApplied clear-num12.4
Final simplification12.4
herbie shell --seed 2020065
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
:precision binary64
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))