\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}\;U \le -9.95931678236544397 \cdot 10^{54}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - 0\right)}\\
\mathbf{elif}\;U \le 7.7008530070172207 \cdot 10^{77}:\\
\;\;\;\;\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{\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)}}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r171939 = 2.0;
double r171940 = n;
double r171941 = r171939 * r171940;
double r171942 = U;
double r171943 = r171941 * r171942;
double r171944 = t;
double r171945 = l;
double r171946 = r171945 * r171945;
double r171947 = Om;
double r171948 = r171946 / r171947;
double r171949 = r171939 * r171948;
double r171950 = r171944 - r171949;
double r171951 = r171945 / r171947;
double r171952 = pow(r171951, r171939);
double r171953 = r171940 * r171952;
double r171954 = U_;
double r171955 = r171942 - r171954;
double r171956 = r171953 * r171955;
double r171957 = r171950 - r171956;
double r171958 = r171943 * r171957;
double r171959 = sqrt(r171958);
return r171959;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r171960 = U;
double r171961 = -9.959316782365444e+54;
bool r171962 = r171960 <= r171961;
double r171963 = 2.0;
double r171964 = n;
double r171965 = r171963 * r171964;
double r171966 = r171965 * r171960;
double r171967 = t;
double r171968 = l;
double r171969 = Om;
double r171970 = r171969 / r171968;
double r171971 = r171968 / r171970;
double r171972 = r171963 * r171971;
double r171973 = r171967 - r171972;
double r171974 = 0.0;
double r171975 = r171973 - r171974;
double r171976 = r171966 * r171975;
double r171977 = sqrt(r171976);
double r171978 = 7.700853007017221e+77;
bool r171979 = r171960 <= r171978;
double r171980 = r171968 / r171969;
double r171981 = 2.0;
double r171982 = r171963 / r171981;
double r171983 = pow(r171980, r171982);
double r171984 = r171964 * r171983;
double r171985 = U_;
double r171986 = r171960 - r171985;
double r171987 = r171983 * r171986;
double r171988 = r171984 * r171987;
double r171989 = r171973 - r171988;
double r171990 = r171960 * r171989;
double r171991 = r171965 * r171990;
double r171992 = sqrt(r171991);
double r171993 = r171966 * r171989;
double r171994 = sqrt(r171993);
double r171995 = sqrt(r171994);
double r171996 = r171995 * r171995;
double r171997 = r171979 ? r171992 : r171996;
double r171998 = r171962 ? r171977 : r171997;
return r171998;
}



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 U < -9.959316782365444e+54Initial program 29.3
rmApplied associate-/l*26.8
Taylor expanded around 0 28.1
if -9.959316782365444e+54 < U < 7.700853007017221e+77Initial program 36.9
rmApplied associate-/l*34.0
rmApplied sqr-pow34.0
Applied associate-*r*33.0
rmApplied associate-*l*32.5
rmApplied associate-*l*28.9
if 7.700853007017221e+77 < U Initial program 29.8
rmApplied associate-/l*27.4
rmApplied sqr-pow27.4
Applied associate-*r*27.1
rmApplied associate-*l*27.7
rmApplied add-sqr-sqrt27.9
Final simplification28.7
herbie shell --seed 2020081 +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*))))))