\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\begin{array}{l}
\mathbf{if}\;\pi \cdot \ell \le -6.20801884469397047 \cdot 10^{155}:\\
\;\;\;\;\pi \cdot \ell - 1 \cdot \frac{\left(\frac{\sqrt[3]{\sin \left(\pi \cdot \ell\right)}}{\sqrt[3]{\cos \left(\pi \cdot \ell\right)}} \cdot \frac{\frac{\sqrt[3]{\sin \left(\pi \cdot \ell\right)}}{\sqrt[3]{\cos \left(\pi \cdot \ell\right)}}}{\sqrt[3]{F} \cdot \sqrt[3]{F}}\right) \cdot \frac{\sqrt[3]{\sin \left(\pi \cdot \ell\right)}}{\sqrt[3]{\cos \left(\pi \cdot \ell\right)} \cdot \sqrt[3]{F}}}{F}\\
\mathbf{elif}\;\pi \cdot \ell \le 1.4066591555946186 \cdot 10^{126}:\\
\;\;\;\;\pi \cdot \ell - 1 \cdot \frac{\frac{\frac{\sin \left(\pi \cdot \ell\right)}{1 + \left(\frac{1}{24} \cdot \left({\pi}^{4} \cdot {\ell}^{4}\right) + \pi \cdot \left(\frac{-1}{2} \cdot \left(\pi \cdot \left(\ell \cdot \ell\right)\right)\right)\right)}}{F}}{F}\\
\mathbf{else}:\\
\;\;\;\;\pi \cdot \ell - 1 \cdot \frac{\frac{\tan \left(\sqrt{\pi \cdot \ell} \cdot \sqrt{\pi \cdot \ell}\right)}{F}}{F}\\
\end{array}double code(double F, double l) {
return ((double) (((double) (((double) M_PI) * l)) - ((double) (((double) (1.0 / ((double) (F * F)))) * ((double) tan(((double) (((double) M_PI) * l))))))));
}
double code(double F, double l) {
double VAR;
if ((((double) (((double) M_PI) * l)) <= -6.20801884469397e+155)) {
VAR = ((double) (((double) (((double) M_PI) * l)) - ((double) (1.0 * ((double) (((double) (((double) (((double) (((double) cbrt(((double) sin(((double) (((double) M_PI) * l)))))) / ((double) cbrt(((double) cos(((double) (((double) M_PI) * l)))))))) * ((double) (((double) (((double) cbrt(((double) sin(((double) (((double) M_PI) * l)))))) / ((double) cbrt(((double) cos(((double) (((double) M_PI) * l)))))))) / ((double) (((double) cbrt(F)) * ((double) cbrt(F)))))))) * ((double) (((double) cbrt(((double) sin(((double) (((double) M_PI) * l)))))) / ((double) (((double) cbrt(((double) cos(((double) (((double) M_PI) * l)))))) * ((double) cbrt(F)))))))) / F))))));
} else {
double VAR_1;
if ((((double) (((double) M_PI) * l)) <= 1.4066591555946186e+126)) {
VAR_1 = ((double) (((double) (((double) M_PI) * l)) - ((double) (1.0 * ((double) (((double) (((double) (((double) sin(((double) (((double) M_PI) * l)))) / ((double) (1.0 + ((double) (((double) (0.041666666666666664 * ((double) (((double) pow(((double) M_PI), 4.0)) * ((double) pow(l, 4.0)))))) + ((double) (((double) M_PI) * ((double) (-0.5 * ((double) (((double) M_PI) * ((double) (l * l)))))))))))))) / F)) / F))))));
} else {
VAR_1 = ((double) (((double) (((double) M_PI) * l)) - ((double) (1.0 * ((double) (((double) (((double) tan(((double) (((double) sqrt(((double) (((double) M_PI) * l)))) * ((double) sqrt(((double) (((double) M_PI) * l)))))))) / F)) / F))))));
}
VAR = VAR_1;
}
return VAR;
}



Bits error versus F



Bits error versus l
Results
if (* PI l) < -6.20801884469397047e155Initial program 19.9
Simplified19.9
rmApplied associate-/r*19.9
rmApplied tan-quot19.9
rmApplied add-cube-cbrt19.9
Applied add-cube-cbrt19.9
Applied add-cube-cbrt19.9
Applied times-frac19.9
Applied times-frac19.9
Simplified19.9
Simplified19.9
if -6.20801884469397047e155 < (* PI l) < 1.4066591555946186e126Initial program 14.8
Simplified14.4
rmApplied associate-/r*9.1
rmApplied tan-quot9.1
Taylor expanded around 0 4.3
Simplified4.3
if 1.4066591555946186e126 < (* PI l) Initial program 20.3
Simplified20.3
rmApplied associate-/r*20.3
rmApplied add-sqr-sqrt20.3
Final simplification9.0
herbie shell --seed 2020184
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
:precision binary64
(- (* PI l) (* (/ 1.0 (* F F)) (tan (* PI l)))))