\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 r218662 = 2.0;
double r218663 = n;
double r218664 = r218662 * r218663;
double r218665 = U;
double r218666 = r218664 * r218665;
double r218667 = t;
double r218668 = l;
double r218669 = r218668 * r218668;
double r218670 = Om;
double r218671 = r218669 / r218670;
double r218672 = r218662 * r218671;
double r218673 = r218667 - r218672;
double r218674 = r218668 / r218670;
double r218675 = pow(r218674, r218662);
double r218676 = r218663 * r218675;
double r218677 = U_;
double r218678 = r218665 - r218677;
double r218679 = r218676 * r218678;
double r218680 = r218673 - r218679;
double r218681 = r218666 * r218680;
double r218682 = sqrt(r218681);
return r218682;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r218683 = t;
double r218684 = 5.25886112993822e-257;
bool r218685 = r218683 <= r218684;
double r218686 = 2.0;
double r218687 = n;
double r218688 = r218686 * r218687;
double r218689 = U;
double r218690 = r218688 * r218689;
double r218691 = l;
double r218692 = Om;
double r218693 = r218692 / r218691;
double r218694 = r218691 / r218693;
double r218695 = r218686 * r218694;
double r218696 = r218683 - r218695;
double r218697 = r218691 / r218692;
double r218698 = 2.0;
double r218699 = r218686 / r218698;
double r218700 = pow(r218697, r218699);
double r218701 = r218687 * r218700;
double r218702 = U_;
double r218703 = r218689 - r218702;
double r218704 = r218700 * r218703;
double r218705 = r218701 * r218704;
double r218706 = r218696 - r218705;
double r218707 = r218690 * r218706;
double r218708 = sqrt(r218707);
double r218709 = sqrt(r218708);
double r218710 = r218709 * r218709;
double r218711 = 1.4427714437493886e+46;
bool r218712 = r218683 <= r218711;
double r218713 = r218689 * r218706;
double r218714 = r218688 * r218713;
double r218715 = sqrt(r218714);
double r218716 = sqrt(r218690);
double r218717 = r218701 * r218700;
double r218718 = r218717 * r218703;
double r218719 = r218696 - r218718;
double r218720 = sqrt(r218719);
double r218721 = r218716 * r218720;
double r218722 = r218712 ? r218715 : r218721;
double r218723 = r218685 ? r218710 : r218722;
return r218723;
}



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*))))))