\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 r171738 = 2.0;
double r171739 = n;
double r171740 = r171738 * r171739;
double r171741 = U;
double r171742 = r171740 * r171741;
double r171743 = t;
double r171744 = l;
double r171745 = r171744 * r171744;
double r171746 = Om;
double r171747 = r171745 / r171746;
double r171748 = r171738 * r171747;
double r171749 = r171743 - r171748;
double r171750 = r171744 / r171746;
double r171751 = pow(r171750, r171738);
double r171752 = r171739 * r171751;
double r171753 = U_;
double r171754 = r171741 - r171753;
double r171755 = r171752 * r171754;
double r171756 = r171749 - r171755;
double r171757 = r171742 * r171756;
double r171758 = sqrt(r171757);
return r171758;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r171759 = t;
double r171760 = 5.25886112993822e-257;
bool r171761 = r171759 <= r171760;
double r171762 = 2.0;
double r171763 = n;
double r171764 = r171762 * r171763;
double r171765 = U;
double r171766 = r171764 * r171765;
double r171767 = l;
double r171768 = Om;
double r171769 = r171768 / r171767;
double r171770 = r171767 / r171769;
double r171771 = r171762 * r171770;
double r171772 = r171759 - r171771;
double r171773 = r171767 / r171768;
double r171774 = 2.0;
double r171775 = r171762 / r171774;
double r171776 = pow(r171773, r171775);
double r171777 = r171763 * r171776;
double r171778 = U_;
double r171779 = r171765 - r171778;
double r171780 = r171776 * r171779;
double r171781 = r171777 * r171780;
double r171782 = r171772 - r171781;
double r171783 = r171766 * r171782;
double r171784 = sqrt(r171783);
double r171785 = sqrt(r171784);
double r171786 = r171785 * r171785;
double r171787 = 1.4427714437493886e+46;
bool r171788 = r171759 <= r171787;
double r171789 = r171765 * r171782;
double r171790 = r171764 * r171789;
double r171791 = sqrt(r171790);
double r171792 = sqrt(r171766);
double r171793 = r171777 * r171776;
double r171794 = r171793 * r171779;
double r171795 = r171772 - r171794;
double r171796 = sqrt(r171795);
double r171797 = r171792 * r171796;
double r171798 = r171788 ? r171791 : r171797;
double r171799 = r171761 ? r171786 : r171798;
return r171799;
}



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 +o rules:numerics
(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*))))))