\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 11096816485837592842858507119229692542980:\\
\;\;\;\;\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 U} \cdot \sqrt{\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)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r211221 = 2.0;
double r211222 = n;
double r211223 = r211221 * r211222;
double r211224 = U;
double r211225 = r211223 * r211224;
double r211226 = t;
double r211227 = l;
double r211228 = r211227 * r211227;
double r211229 = Om;
double r211230 = r211228 / r211229;
double r211231 = r211221 * r211230;
double r211232 = r211226 - r211231;
double r211233 = r211227 / r211229;
double r211234 = pow(r211233, r211221);
double r211235 = r211222 * r211234;
double r211236 = U_;
double r211237 = r211224 - r211236;
double r211238 = r211235 * r211237;
double r211239 = r211232 - r211238;
double r211240 = r211225 * r211239;
double r211241 = sqrt(r211240);
return r211241;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r211242 = t;
double r211243 = 1.1096816485837593e+40;
bool r211244 = r211242 <= r211243;
double r211245 = 2.0;
double r211246 = n;
double r211247 = r211245 * r211246;
double r211248 = U;
double r211249 = r211247 * r211248;
double r211250 = l;
double r211251 = Om;
double r211252 = r211250 / r211251;
double r211253 = r211250 * r211252;
double r211254 = r211245 * r211253;
double r211255 = r211242 - r211254;
double r211256 = 2.0;
double r211257 = r211245 / r211256;
double r211258 = pow(r211252, r211257);
double r211259 = r211246 * r211258;
double r211260 = U_;
double r211261 = r211248 - r211260;
double r211262 = r211258 * r211261;
double r211263 = r211259 * r211262;
double r211264 = r211255 - r211263;
double r211265 = r211249 * r211264;
double r211266 = sqrt(r211265);
double r211267 = sqrt(r211249);
double r211268 = r211259 * r211258;
double r211269 = r211268 * r211261;
double r211270 = r211255 - r211269;
double r211271 = sqrt(r211270);
double r211272 = r211267 * r211271;
double r211273 = r211244 ? r211266 : r211272;
return r211273;
}



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 < 1.1096816485837593e+40Initial program 34.1
rmApplied *-un-lft-identity34.1
Applied times-frac31.4
Simplified31.4
rmApplied sqr-pow31.4
Applied associate-*r*30.5
rmApplied associate-*l*30.4
if 1.1096816485837593e+40 < t Initial program 34.5
rmApplied *-un-lft-identity34.5
Applied times-frac31.7
Simplified31.7
rmApplied sqr-pow31.7
Applied associate-*r*31.4
rmApplied sqrt-prod25.5
Final simplification29.3
herbie shell --seed 2019304
(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*))))))