\pi \cdot \ell - \frac{1}{F \cdot F} \cdot \tan \left(\pi \cdot \ell\right)\begin{array}{l}
\mathbf{if}\;\pi \cdot \ell \le -1.141064572853054344318688712228171997078 \cdot 10^{162}:\\
\;\;\;\;\pi \cdot \ell - \frac{\sqrt{1}}{F} \cdot \left(\frac{\sqrt{1}}{F} \cdot \tan \left(\left(\sqrt[3]{\pi \cdot \ell} \cdot \sqrt[3]{\pi \cdot \ell}\right) \cdot \sqrt[3]{\pi \cdot \ell}\right)\right)\\
\mathbf{elif}\;\pi \cdot \ell \le 1.588550440417116988311629408469501691404 \cdot 10^{150}:\\
\;\;\;\;\pi \cdot \ell - \frac{\sqrt{1}}{F} \cdot \frac{\sin \left(\pi \cdot \ell\right) \cdot \sqrt{1}}{\left(\left(\frac{1}{24} \cdot \left({\pi}^{4} \cdot {\ell}^{4}\right) + 1\right) - \frac{1}{2} \cdot \left({\pi}^{2} \cdot {\ell}^{2}\right)\right) \cdot F}\\
\mathbf{else}:\\
\;\;\;\;\pi \cdot \ell - \frac{\sqrt{1}}{F} \cdot \left(\frac{\sqrt{1}}{F} \cdot \tan \left(e^{\log \left(\pi \cdot \ell\right)}\right)\right)\\
\end{array}double f(double F, double l) {
double r24766 = atan2(1.0, 0.0);
double r24767 = l;
double r24768 = r24766 * r24767;
double r24769 = 1.0;
double r24770 = F;
double r24771 = r24770 * r24770;
double r24772 = r24769 / r24771;
double r24773 = tan(r24768);
double r24774 = r24772 * r24773;
double r24775 = r24768 - r24774;
return r24775;
}
double f(double F, double l) {
double r24776 = atan2(1.0, 0.0);
double r24777 = l;
double r24778 = r24776 * r24777;
double r24779 = -1.1410645728530543e+162;
bool r24780 = r24778 <= r24779;
double r24781 = 1.0;
double r24782 = sqrt(r24781);
double r24783 = F;
double r24784 = r24782 / r24783;
double r24785 = cbrt(r24778);
double r24786 = r24785 * r24785;
double r24787 = r24786 * r24785;
double r24788 = tan(r24787);
double r24789 = r24784 * r24788;
double r24790 = r24784 * r24789;
double r24791 = r24778 - r24790;
double r24792 = 1.588550440417117e+150;
bool r24793 = r24778 <= r24792;
double r24794 = sin(r24778);
double r24795 = r24794 * r24782;
double r24796 = 0.041666666666666664;
double r24797 = 4.0;
double r24798 = pow(r24776, r24797);
double r24799 = pow(r24777, r24797);
double r24800 = r24798 * r24799;
double r24801 = r24796 * r24800;
double r24802 = 1.0;
double r24803 = r24801 + r24802;
double r24804 = 0.5;
double r24805 = 2.0;
double r24806 = pow(r24776, r24805);
double r24807 = pow(r24777, r24805);
double r24808 = r24806 * r24807;
double r24809 = r24804 * r24808;
double r24810 = r24803 - r24809;
double r24811 = r24810 * r24783;
double r24812 = r24795 / r24811;
double r24813 = r24784 * r24812;
double r24814 = r24778 - r24813;
double r24815 = log(r24778);
double r24816 = exp(r24815);
double r24817 = tan(r24816);
double r24818 = r24784 * r24817;
double r24819 = r24784 * r24818;
double r24820 = r24778 - r24819;
double r24821 = r24793 ? r24814 : r24820;
double r24822 = r24780 ? r24791 : r24821;
return r24822;
}



Bits error versus F



Bits error versus l
Results
if (* PI l) < -1.1410645728530543e+162Initial program 20.3
rmApplied add-sqr-sqrt20.3
Applied times-frac20.3
Applied associate-*l*20.3
rmApplied add-cube-cbrt20.3
if -1.1410645728530543e+162 < (* PI l) < 1.588550440417117e+150Initial program 15.7
rmApplied add-sqr-sqrt15.7
Applied times-frac15.8
Applied associate-*l*9.7
rmApplied tan-quot9.7
Applied frac-times9.7
Simplified9.7
Simplified9.7
rmApplied add-cube-cbrt9.7
Applied associate-*r*9.7
Taylor expanded around 0 4.3
if 1.588550440417117e+150 < (* PI l) Initial program 20.0
rmApplied add-sqr-sqrt20.0
Applied times-frac20.0
Applied associate-*l*20.0
rmApplied add-exp-log20.0
Applied add-exp-log20.0
Applied prod-exp20.0
Simplified20.0
Final simplification8.5
herbie shell --seed 2019303
(FPCore (F l)
:name "VandenBroeck and Keller, Equation (6)"
:precision binary64
(- (* PI l) (* (/ 1 (* F F)) (tan (* PI l)))))