\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.980056013607703 \cdot 10^{-310}:\\
\;\;\;\;\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)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{2 \cdot n} \cdot \sqrt{U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\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)\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r211969 = 2.0;
double r211970 = n;
double r211971 = r211969 * r211970;
double r211972 = U;
double r211973 = r211971 * r211972;
double r211974 = t;
double r211975 = l;
double r211976 = r211975 * r211975;
double r211977 = Om;
double r211978 = r211976 / r211977;
double r211979 = r211969 * r211978;
double r211980 = r211974 - r211979;
double r211981 = r211975 / r211977;
double r211982 = pow(r211981, r211969);
double r211983 = r211970 * r211982;
double r211984 = U_;
double r211985 = r211972 - r211984;
double r211986 = r211983 * r211985;
double r211987 = r211980 - r211986;
double r211988 = r211973 * r211987;
double r211989 = sqrt(r211988);
return r211989;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r211990 = n;
double r211991 = 1.9800560136077e-310;
bool r211992 = r211990 <= r211991;
double r211993 = 2.0;
double r211994 = r211993 * r211990;
double r211995 = U;
double r211996 = t;
double r211997 = l;
double r211998 = Om;
double r211999 = r211997 / r211998;
double r212000 = r211997 * r211999;
double r212001 = r211993 * r212000;
double r212002 = r211996 - r212001;
double r212003 = 2.0;
double r212004 = r211993 / r212003;
double r212005 = pow(r211999, r212004);
double r212006 = r211990 * r212005;
double r212007 = U_;
double r212008 = r211995 - r212007;
double r212009 = r212005 * r212008;
double r212010 = r212006 * r212009;
double r212011 = r212002 - r212010;
double r212012 = r211995 * r212011;
double r212013 = r211994 * r212012;
double r212014 = sqrt(r212013);
double r212015 = sqrt(r211994);
double r212016 = r212006 * r212005;
double r212017 = r212016 * r212008;
double r212018 = r212002 - r212017;
double r212019 = r211995 * r212018;
double r212020 = sqrt(r212019);
double r212021 = r212015 * r212020;
double r212022 = r211992 ? r212014 : r212021;
return r212022;
}



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.9800560136077e-310Initial program 34.6
rmApplied *-un-lft-identity34.6
Applied times-frac31.6
Simplified31.6
rmApplied associate-*l*31.6
rmApplied sqr-pow31.6
Applied associate-*r*30.6
rmApplied associate-*l*30.3
if 1.9800560136077e-310 < n Initial program 34.5
rmApplied *-un-lft-identity34.5
Applied times-frac31.6
Simplified31.6
rmApplied associate-*l*32.0
rmApplied sqr-pow32.0
Applied associate-*r*31.1
rmApplied sqrt-prod23.5
Final simplification26.9
herbie shell --seed 2020046
(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*))))))