\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 6.40743567097731682 \cdot 10^{-273}:\\
\;\;\;\;\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{elif}\;t \le 6.91051826790831174 \cdot 10^{-202}:\\
\;\;\;\;\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)}\\
\mathbf{elif}\;t \le 8.6860665847203579 \cdot 10^{76}:\\
\;\;\;\;\sqrt{\left(\sqrt[3]{\left(\left(2 \cdot n\right) \cdot U\right) \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)} \cdot \sqrt[3]{\left(\left(2 \cdot n\right) \cdot U\right) \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)}\right) \cdot \sqrt[3]{\left(\left(2 \cdot n\right) \cdot U\right) \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)}}\\
\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 r169522 = 2.0;
double r169523 = n;
double r169524 = r169522 * r169523;
double r169525 = U;
double r169526 = r169524 * r169525;
double r169527 = t;
double r169528 = l;
double r169529 = r169528 * r169528;
double r169530 = Om;
double r169531 = r169529 / r169530;
double r169532 = r169522 * r169531;
double r169533 = r169527 - r169532;
double r169534 = r169528 / r169530;
double r169535 = pow(r169534, r169522);
double r169536 = r169523 * r169535;
double r169537 = U_;
double r169538 = r169525 - r169537;
double r169539 = r169536 * r169538;
double r169540 = r169533 - r169539;
double r169541 = r169526 * r169540;
double r169542 = sqrt(r169541);
return r169542;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r169543 = t;
double r169544 = 6.407435670977317e-273;
bool r169545 = r169543 <= r169544;
double r169546 = 2.0;
double r169547 = n;
double r169548 = r169546 * r169547;
double r169549 = U;
double r169550 = r169548 * r169549;
double r169551 = l;
double r169552 = Om;
double r169553 = r169551 / r169552;
double r169554 = r169551 * r169553;
double r169555 = r169546 * r169554;
double r169556 = r169543 - r169555;
double r169557 = 2.0;
double r169558 = r169546 / r169557;
double r169559 = pow(r169553, r169558);
double r169560 = r169547 * r169559;
double r169561 = U_;
double r169562 = r169549 - r169561;
double r169563 = r169559 * r169562;
double r169564 = r169560 * r169563;
double r169565 = r169556 - r169564;
double r169566 = r169550 * r169565;
double r169567 = sqrt(r169566);
double r169568 = 6.910518267908312e-202;
bool r169569 = r169543 <= r169568;
double r169570 = sqrt(r169550);
double r169571 = r169560 * r169559;
double r169572 = r169571 * r169562;
double r169573 = r169556 - r169572;
double r169574 = sqrt(r169573);
double r169575 = r169570 * r169574;
double r169576 = 8.686066584720358e+76;
bool r169577 = r169543 <= r169576;
double r169578 = r169550 * r169573;
double r169579 = cbrt(r169578);
double r169580 = r169579 * r169579;
double r169581 = r169580 * r169579;
double r169582 = sqrt(r169581);
double r169583 = r169577 ? r169582 : r169575;
double r169584 = r169569 ? r169575 : r169583;
double r169585 = r169545 ? r169567 : r169584;
return r169585;
}



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 < 6.407435670977317e-273Initial program 34.3
rmApplied *-un-lft-identity34.3
Applied times-frac31.2
Simplified31.2
rmApplied sqr-pow31.2
Applied associate-*r*30.3
rmApplied associate-*l*30.0
if 6.407435670977317e-273 < t < 6.910518267908312e-202 or 8.686066584720358e+76 < t Initial program 35.6
rmApplied *-un-lft-identity35.6
Applied times-frac33.0
Simplified33.0
rmApplied sqr-pow33.0
Applied associate-*r*32.4
rmApplied sqrt-prod25.2
if 6.910518267908312e-202 < t < 8.686066584720358e+76Initial program 31.5
rmApplied *-un-lft-identity31.5
Applied times-frac28.7
Simplified28.7
rmApplied sqr-pow28.7
Applied associate-*r*28.0
rmApplied add-cube-cbrt28.3
Final simplification28.4
herbie shell --seed 2020089 +o rules:numerics
(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*))))))