\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 1.16026512984168212 \cdot 10^{241}:\\
\;\;\;\;\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({\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)} \cdot \left(\sqrt[3]{U - U*} \cdot \sqrt[3]{U - U*}\right)\right) \cdot \sqrt[3]{U - U*}\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(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)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r167327 = 2.0;
double r167328 = n;
double r167329 = r167327 * r167328;
double r167330 = U;
double r167331 = r167329 * r167330;
double r167332 = t;
double r167333 = l;
double r167334 = r167333 * r167333;
double r167335 = Om;
double r167336 = r167334 / r167335;
double r167337 = r167327 * r167336;
double r167338 = r167332 - r167337;
double r167339 = r167333 / r167335;
double r167340 = pow(r167339, r167327);
double r167341 = r167328 * r167340;
double r167342 = U_;
double r167343 = r167330 - r167342;
double r167344 = r167341 * r167343;
double r167345 = r167338 - r167344;
double r167346 = r167331 * r167345;
double r167347 = sqrt(r167346);
return r167347;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r167348 = t;
double r167349 = 1.1602651298416821e+241;
bool r167350 = r167348 <= r167349;
double r167351 = 2.0;
double r167352 = n;
double r167353 = r167351 * r167352;
double r167354 = U;
double r167355 = r167353 * r167354;
double r167356 = l;
double r167357 = Om;
double r167358 = r167356 / r167357;
double r167359 = r167356 * r167358;
double r167360 = r167351 * r167359;
double r167361 = r167348 - r167360;
double r167362 = 2.0;
double r167363 = r167351 / r167362;
double r167364 = pow(r167358, r167363);
double r167365 = r167352 * r167364;
double r167366 = U_;
double r167367 = r167354 - r167366;
double r167368 = cbrt(r167367);
double r167369 = r167368 * r167368;
double r167370 = r167364 * r167369;
double r167371 = r167370 * r167368;
double r167372 = r167365 * r167371;
double r167373 = r167361 - r167372;
double r167374 = r167355 * r167373;
double r167375 = sqrt(r167374);
double r167376 = sqrt(r167355);
double r167377 = r167364 * r167367;
double r167378 = r167365 * r167377;
double r167379 = r167361 - r167378;
double r167380 = sqrt(r167379);
double r167381 = r167376 * r167380;
double r167382 = r167350 ? r167375 : r167381;
return r167382;
}



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.1602651298416821e+241Initial program 34.2
rmApplied *-un-lft-identity34.2
Applied times-frac31.5
Simplified31.5
rmApplied sqr-pow31.5
Applied associate-*r*30.6
rmApplied associate-*l*30.4
rmApplied add-cube-cbrt30.4
Applied associate-*r*30.4
if 1.1602651298416821e+241 < t Initial program 41.0
rmApplied *-un-lft-identity41.0
Applied times-frac38.5
Simplified38.5
rmApplied sqr-pow38.5
Applied associate-*r*37.8
rmApplied associate-*l*38.0
rmApplied sqrt-prod22.8
Final simplification30.0
herbie shell --seed 2020033
(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*))))))