\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 r213492 = 2.0;
double r213493 = n;
double r213494 = r213492 * r213493;
double r213495 = U;
double r213496 = r213494 * r213495;
double r213497 = t;
double r213498 = l;
double r213499 = r213498 * r213498;
double r213500 = Om;
double r213501 = r213499 / r213500;
double r213502 = r213492 * r213501;
double r213503 = r213497 - r213502;
double r213504 = r213498 / r213500;
double r213505 = pow(r213504, r213492);
double r213506 = r213493 * r213505;
double r213507 = U_;
double r213508 = r213495 - r213507;
double r213509 = r213506 * r213508;
double r213510 = r213503 - r213509;
double r213511 = r213496 * r213510;
double r213512 = sqrt(r213511);
return r213512;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r213513 = t;
double r213514 = 1.1602651298416821e+241;
bool r213515 = r213513 <= r213514;
double r213516 = 2.0;
double r213517 = n;
double r213518 = r213516 * r213517;
double r213519 = U;
double r213520 = r213518 * r213519;
double r213521 = l;
double r213522 = Om;
double r213523 = r213521 / r213522;
double r213524 = r213521 * r213523;
double r213525 = r213516 * r213524;
double r213526 = r213513 - r213525;
double r213527 = 2.0;
double r213528 = r213516 / r213527;
double r213529 = pow(r213523, r213528);
double r213530 = r213517 * r213529;
double r213531 = U_;
double r213532 = r213519 - r213531;
double r213533 = cbrt(r213532);
double r213534 = r213533 * r213533;
double r213535 = r213529 * r213534;
double r213536 = r213535 * r213533;
double r213537 = r213530 * r213536;
double r213538 = r213526 - r213537;
double r213539 = r213520 * r213538;
double r213540 = sqrt(r213539);
double r213541 = sqrt(r213520);
double r213542 = r213529 * r213532;
double r213543 = r213530 * r213542;
double r213544 = r213526 - r213543;
double r213545 = sqrt(r213544);
double r213546 = r213541 * r213545;
double r213547 = r213515 ? r213540 : r213546;
return r213547;
}



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*))))))