\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}\;n \le 1.096720098972556 \cdot 10^{-309}:\\
\;\;\;\;\sqrt{\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - n \cdot \left({\left(\frac{\ell}{Om}\right)}^{2} \cdot \left(U - U*\right)\right)\right)\right)}} \cdot \sqrt{\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - n \cdot \left({\left(\frac{\ell}{Om}\right)}^{2} \cdot \left(U - U*\right)\right)\right)\right)}}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{2 \cdot n} \cdot \sqrt{U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{2}\right) \cdot \left(U - U*\right)\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r220708 = 2.0;
double r220709 = n;
double r220710 = r220708 * r220709;
double r220711 = U;
double r220712 = r220710 * r220711;
double r220713 = t;
double r220714 = l;
double r220715 = r220714 * r220714;
double r220716 = Om;
double r220717 = r220715 / r220716;
double r220718 = r220708 * r220717;
double r220719 = r220713 - r220718;
double r220720 = r220714 / r220716;
double r220721 = pow(r220720, r220708);
double r220722 = r220709 * r220721;
double r220723 = U_;
double r220724 = r220711 - r220723;
double r220725 = r220722 * r220724;
double r220726 = r220719 - r220725;
double r220727 = r220712 * r220726;
double r220728 = sqrt(r220727);
return r220728;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r220729 = n;
double r220730 = 1.096720098972556e-309;
bool r220731 = r220729 <= r220730;
double r220732 = 2.0;
double r220733 = r220732 * r220729;
double r220734 = U;
double r220735 = t;
double r220736 = l;
double r220737 = Om;
double r220738 = r220736 / r220737;
double r220739 = r220736 * r220738;
double r220740 = r220732 * r220739;
double r220741 = r220735 - r220740;
double r220742 = pow(r220738, r220732);
double r220743 = U_;
double r220744 = r220734 - r220743;
double r220745 = r220742 * r220744;
double r220746 = r220729 * r220745;
double r220747 = r220741 - r220746;
double r220748 = r220734 * r220747;
double r220749 = r220733 * r220748;
double r220750 = sqrt(r220749);
double r220751 = sqrt(r220750);
double r220752 = r220751 * r220751;
double r220753 = sqrt(r220733);
double r220754 = r220729 * r220742;
double r220755 = r220754 * r220744;
double r220756 = r220741 - r220755;
double r220757 = r220734 * r220756;
double r220758 = sqrt(r220757);
double r220759 = r220753 * r220758;
double r220760 = r220731 ? r220752 : r220759;
return r220760;
}



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 n < 1.096720098972556e-309Initial program 34.8
rmApplied *-un-lft-identity34.8
Applied times-frac32.0
Simplified32.0
rmApplied associate-*l*32.4
rmApplied associate-*l*32.7
rmApplied add-sqr-sqrt32.9
if 1.096720098972556e-309 < n Initial program 35.0
rmApplied *-un-lft-identity35.0
Applied times-frac32.4
Simplified32.4
rmApplied associate-*l*32.8
rmApplied sqrt-prod25.8
Final simplification29.4
herbie shell --seed 2020060 +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*))))))