\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell \cdot \ell}{Om}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{2}\right) \cdot \left(U - U*\right)\right)}\begin{array}{l}
\mathbf{if}\;t \le 5.2588611299382201 \cdot 10^{-257}:\\
\;\;\;\;\sqrt{\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left({\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)} \cdot \left(U - U*\right)\right)\right)}} \cdot \sqrt{\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left({\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)} \cdot \left(U - U*\right)\right)\right)}}\\
\mathbf{elif}\;t \le 1.4427714437493886 \cdot 10^{46}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left({\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)} \cdot \left(U - U*\right)\right)\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot U} \cdot \sqrt{\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - \left(\left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left(U - U*\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r169812 = 2.0;
double r169813 = n;
double r169814 = r169812 * r169813;
double r169815 = U;
double r169816 = r169814 * r169815;
double r169817 = t;
double r169818 = l;
double r169819 = r169818 * r169818;
double r169820 = Om;
double r169821 = r169819 / r169820;
double r169822 = r169812 * r169821;
double r169823 = r169817 - r169822;
double r169824 = r169818 / r169820;
double r169825 = pow(r169824, r169812);
double r169826 = r169813 * r169825;
double r169827 = U_;
double r169828 = r169815 - r169827;
double r169829 = r169826 * r169828;
double r169830 = r169823 - r169829;
double r169831 = r169816 * r169830;
double r169832 = sqrt(r169831);
return r169832;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r169833 = t;
double r169834 = 5.25886112993822e-257;
bool r169835 = r169833 <= r169834;
double r169836 = 2.0;
double r169837 = n;
double r169838 = r169836 * r169837;
double r169839 = U;
double r169840 = r169838 * r169839;
double r169841 = l;
double r169842 = Om;
double r169843 = r169842 / r169841;
double r169844 = r169841 / r169843;
double r169845 = r169836 * r169844;
double r169846 = r169833 - r169845;
double r169847 = r169841 / r169842;
double r169848 = 2.0;
double r169849 = r169836 / r169848;
double r169850 = pow(r169847, r169849);
double r169851 = r169837 * r169850;
double r169852 = U_;
double r169853 = r169839 - r169852;
double r169854 = r169850 * r169853;
double r169855 = r169851 * r169854;
double r169856 = r169846 - r169855;
double r169857 = r169840 * r169856;
double r169858 = sqrt(r169857);
double r169859 = sqrt(r169858);
double r169860 = r169859 * r169859;
double r169861 = 1.4427714437493886e+46;
bool r169862 = r169833 <= r169861;
double r169863 = r169839 * r169856;
double r169864 = r169838 * r169863;
double r169865 = sqrt(r169864);
double r169866 = sqrt(r169840);
double r169867 = r169851 * r169850;
double r169868 = r169867 * r169853;
double r169869 = r169846 - r169868;
double r169870 = sqrt(r169869);
double r169871 = r169866 * r169870;
double r169872 = r169862 ? r169865 : r169871;
double r169873 = r169835 ? r169860 : r169872;
return r169873;
}



Bits error versus n



Bits error versus U



Bits error versus t



Bits error versus l



Bits error versus Om



Bits error versus U*
Results
if t < 5.25886112993822e-257Initial program 34.5
rmApplied associate-/l*31.7
rmApplied sqr-pow31.7
Applied associate-*r*30.6
rmApplied associate-*l*30.4
rmApplied add-sqr-sqrt30.6
if 5.25886112993822e-257 < t < 1.4427714437493886e+46Initial program 32.6
rmApplied associate-/l*29.6
rmApplied sqr-pow29.6
Applied associate-*r*28.5
rmApplied associate-*l*28.5
rmApplied associate-*l*28.4
if 1.4427714437493886e+46 < t Initial program 34.9
rmApplied associate-/l*32.2
rmApplied sqr-pow32.2
Applied associate-*r*31.7
rmApplied sqrt-prod25.8
Final simplification29.0
herbie shell --seed 2020100
(FPCore (n U t l Om U*)
:name "Toniolo and Linder, Equation (13)"
:precision binary64
(sqrt (* (* (* 2 n) U) (- (- t (* 2 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2)) (- U U*))))))