\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}\;U \le -1.084591956382188150200519977575983041249 \cdot 10^{140}:\\
\;\;\;\;\sqrt{\left(\left(t + \frac{\ell}{Om} \cdot \left(-\ell \cdot 2\right)\right) \cdot \left(2 \cdot n\right)\right) \cdot U}\\
\mathbf{elif}\;U \le 4.990611334173369244924830565155599718578 \cdot 10^{-293}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(\left(\left(\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) - \frac{\ell}{Om} \cdot \left(\ell \cdot 2\right)\right) + t\right) \cdot U\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{U} \cdot \sqrt{\left(2 \cdot n\right) \cdot \left(\left(\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) - \frac{\ell}{Om} \cdot \left(\ell \cdot 2\right)\right) + t\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r3458428 = 2.0;
double r3458429 = n;
double r3458430 = r3458428 * r3458429;
double r3458431 = U;
double r3458432 = r3458430 * r3458431;
double r3458433 = t;
double r3458434 = l;
double r3458435 = r3458434 * r3458434;
double r3458436 = Om;
double r3458437 = r3458435 / r3458436;
double r3458438 = r3458428 * r3458437;
double r3458439 = r3458433 - r3458438;
double r3458440 = r3458434 / r3458436;
double r3458441 = pow(r3458440, r3458428);
double r3458442 = r3458429 * r3458441;
double r3458443 = U_;
double r3458444 = r3458431 - r3458443;
double r3458445 = r3458442 * r3458444;
double r3458446 = r3458439 - r3458445;
double r3458447 = r3458432 * r3458446;
double r3458448 = sqrt(r3458447);
return r3458448;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r3458449 = U;
double r3458450 = -1.0845919563821882e+140;
bool r3458451 = r3458449 <= r3458450;
double r3458452 = t;
double r3458453 = l;
double r3458454 = Om;
double r3458455 = r3458453 / r3458454;
double r3458456 = 2.0;
double r3458457 = r3458453 * r3458456;
double r3458458 = -r3458457;
double r3458459 = r3458455 * r3458458;
double r3458460 = r3458452 + r3458459;
double r3458461 = n;
double r3458462 = r3458456 * r3458461;
double r3458463 = r3458460 * r3458462;
double r3458464 = r3458463 * r3458449;
double r3458465 = sqrt(r3458464);
double r3458466 = 4.990611334173369e-293;
bool r3458467 = r3458449 <= r3458466;
double r3458468 = 2.0;
double r3458469 = r3458456 / r3458468;
double r3458470 = pow(r3458455, r3458469);
double r3458471 = r3458461 * r3458470;
double r3458472 = r3458471 * r3458470;
double r3458473 = U_;
double r3458474 = r3458473 - r3458449;
double r3458475 = r3458472 * r3458474;
double r3458476 = r3458455 * r3458457;
double r3458477 = r3458475 - r3458476;
double r3458478 = r3458477 + r3458452;
double r3458479 = r3458478 * r3458449;
double r3458480 = r3458462 * r3458479;
double r3458481 = sqrt(r3458480);
double r3458482 = sqrt(r3458449);
double r3458483 = r3458462 * r3458478;
double r3458484 = sqrt(r3458483);
double r3458485 = r3458482 * r3458484;
double r3458486 = r3458467 ? r3458481 : r3458485;
double r3458487 = r3458451 ? r3458465 : r3458486;
return r3458487;
}



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 U < -1.0845919563821882e+140Initial program 31.8
Simplified32.8
Taylor expanded around 0 33.7
if -1.0845919563821882e+140 < U < 4.990611334173369e-293Initial program 35.1
Simplified32.1
rmApplied sqr-pow32.1
Applied associate-*r*30.9
rmApplied associate-*l*29.4
if 4.990611334173369e-293 < U Initial program 34.7
Simplified32.3
rmApplied sqr-pow32.3
Applied associate-*r*31.2
rmApplied sqrt-prod24.6
Final simplification27.4
herbie shell --seed 2019174
(FPCore (n U t l Om U*)
:name "Toniolo and Linder, Equation (13)"
(sqrt (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*))))))