\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 -6.21551044263864697 \cdot 10^{-75} \lor \neg \left(U \le 7.2198317465463825 \cdot 10^{45}\right):\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\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{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\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)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r209746 = 2.0;
double r209747 = n;
double r209748 = r209746 * r209747;
double r209749 = U;
double r209750 = r209748 * r209749;
double r209751 = t;
double r209752 = l;
double r209753 = r209752 * r209752;
double r209754 = Om;
double r209755 = r209753 / r209754;
double r209756 = r209746 * r209755;
double r209757 = r209751 - r209756;
double r209758 = r209752 / r209754;
double r209759 = pow(r209758, r209746);
double r209760 = r209747 * r209759;
double r209761 = U_;
double r209762 = r209749 - r209761;
double r209763 = r209760 * r209762;
double r209764 = r209757 - r209763;
double r209765 = r209750 * r209764;
double r209766 = sqrt(r209765);
return r209766;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r209767 = U;
double r209768 = -6.215510442638647e-75;
bool r209769 = r209767 <= r209768;
double r209770 = 7.219831746546383e+45;
bool r209771 = r209767 <= r209770;
double r209772 = !r209771;
bool r209773 = r209769 || r209772;
double r209774 = 2.0;
double r209775 = n;
double r209776 = r209774 * r209775;
double r209777 = r209776 * r209767;
double r209778 = t;
double r209779 = l;
double r209780 = Om;
double r209781 = r209779 / r209780;
double r209782 = r209779 * r209781;
double r209783 = r209774 * r209782;
double r209784 = r209778 - r209783;
double r209785 = 2.0;
double r209786 = r209774 / r209785;
double r209787 = pow(r209781, r209786);
double r209788 = r209775 * r209787;
double r209789 = U_;
double r209790 = r209767 - r209789;
double r209791 = r209787 * r209790;
double r209792 = r209788 * r209791;
double r209793 = r209784 - r209792;
double r209794 = r209777 * r209793;
double r209795 = sqrt(r209794);
double r209796 = r209767 * r209793;
double r209797 = r209776 * r209796;
double r209798 = sqrt(r209797);
double r209799 = r209773 ? r209795 : r209798;
return r209799;
}



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 < -6.215510442638647e-75 or 7.219831746546383e+45 < U Initial program 30.5
rmApplied *-un-lft-identity30.5
Applied times-frac28.0
Simplified28.0
rmApplied sqr-pow28.0
Applied associate-*r*27.2
rmApplied associate-*l*27.4
if -6.215510442638647e-75 < U < 7.219831746546383e+45Initial program 37.8
rmApplied *-un-lft-identity37.8
Applied times-frac35.3
Simplified35.3
rmApplied sqr-pow35.3
Applied associate-*r*34.4
rmApplied associate-*l*33.9
rmApplied associate-*l*30.4
Final simplification29.2
herbie shell --seed 2020021
(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*))))))