\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}\;n \le -2.500080883402384 \cdot 10^{-158}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - \left(\left(\left(n \cdot {\left(\frac{1}{\sqrt[3]{Om} \cdot \sqrt[3]{Om}}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{\sqrt[3]{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)}\\
\mathbf{elif}\;n \le 1.2760462906237903 \cdot 10^{-247}:\\
\;\;\;\;\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(\left(\left(n \cdot {\left(\frac{1}{\sqrt[3]{Om} \cdot \sqrt[3]{Om}}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{\sqrt[3]{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{elif}\;n \le 2.1783139283433974 \cdot 10^{-130} \lor \neg \left(n \le 5.912036692986568 \cdot 10^{-67}\right):\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - \left(\left(\left(n \cdot {\left(\frac{1}{\sqrt[3]{Om} \cdot \sqrt[3]{Om}}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{\sqrt[3]{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)}\\
\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(\left(n \cdot {\left(\frac{1}{\sqrt[3]{Om} \cdot \sqrt[3]{Om}}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{\sqrt[3]{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 r264433 = 2.0;
double r264434 = n;
double r264435 = r264433 * r264434;
double r264436 = U;
double r264437 = r264435 * r264436;
double r264438 = t;
double r264439 = l;
double r264440 = r264439 * r264439;
double r264441 = Om;
double r264442 = r264440 / r264441;
double r264443 = r264433 * r264442;
double r264444 = r264438 - r264443;
double r264445 = r264439 / r264441;
double r264446 = pow(r264445, r264433);
double r264447 = r264434 * r264446;
double r264448 = U_;
double r264449 = r264436 - r264448;
double r264450 = r264447 * r264449;
double r264451 = r264444 - r264450;
double r264452 = r264437 * r264451;
double r264453 = sqrt(r264452);
return r264453;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r264454 = n;
double r264455 = -2.5000808834023845e-158;
bool r264456 = r264454 <= r264455;
double r264457 = 2.0;
double r264458 = r264457 * r264454;
double r264459 = U;
double r264460 = t;
double r264461 = l;
double r264462 = Om;
double r264463 = r264461 / r264462;
double r264464 = r264461 * r264463;
double r264465 = r264457 * r264464;
double r264466 = r264460 - r264465;
double r264467 = 1.0;
double r264468 = cbrt(r264462);
double r264469 = r264468 * r264468;
double r264470 = r264467 / r264469;
double r264471 = 2.0;
double r264472 = r264457 / r264471;
double r264473 = pow(r264470, r264472);
double r264474 = r264454 * r264473;
double r264475 = r264461 / r264468;
double r264476 = pow(r264475, r264472);
double r264477 = r264474 * r264476;
double r264478 = pow(r264463, r264472);
double r264479 = r264477 * r264478;
double r264480 = U_;
double r264481 = r264459 - r264480;
double r264482 = r264479 * r264481;
double r264483 = r264466 - r264482;
double r264484 = r264459 * r264483;
double r264485 = r264458 * r264484;
double r264486 = sqrt(r264485);
double r264487 = 1.2760462906237903e-247;
bool r264488 = r264454 <= r264487;
double r264489 = r264458 * r264459;
double r264490 = r264489 * r264483;
double r264491 = sqrt(r264490);
double r264492 = 2.1783139283433974e-130;
bool r264493 = r264454 <= r264492;
double r264494 = 5.912036692986568e-67;
bool r264495 = r264454 <= r264494;
double r264496 = !r264495;
bool r264497 = r264493 || r264496;
double r264498 = sqrt(r264489);
double r264499 = sqrt(r264483);
double r264500 = r264498 * r264499;
double r264501 = r264497 ? r264486 : r264500;
double r264502 = r264488 ? r264491 : r264501;
double r264503 = r264456 ? r264486 : r264502;
return r264503;
}



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 n < -2.5000808834023845e-158 or 1.2760462906237903e-247 < n < 2.1783139283433974e-130 or 5.912036692986568e-67 < n Initial program 33.0
rmApplied *-un-lft-identity33.0
Applied times-frac30.4
Simplified30.4
rmApplied sqr-pow30.4
Applied associate-*r*29.4
rmApplied add-cube-cbrt29.5
Applied *-un-lft-identity29.5
Applied times-frac29.5
Applied unpow-prod-down29.5
Applied associate-*r*30.0
rmApplied associate-*l*30.5
if -2.5000808834023845e-158 < n < 1.2760462906237903e-247Initial program 39.2
rmApplied *-un-lft-identity39.2
Applied times-frac36.6
Simplified36.6
rmApplied sqr-pow36.6
Applied associate-*r*35.8
rmApplied add-cube-cbrt35.9
Applied *-un-lft-identity35.9
Applied times-frac35.9
Applied unpow-prod-down35.9
Applied associate-*r*35.9
if 2.1783139283433974e-130 < n < 5.912036692986568e-67Initial program 31.8
rmApplied *-un-lft-identity31.8
Applied times-frac29.3
Simplified29.3
rmApplied sqr-pow29.3
Applied associate-*r*29.0
rmApplied add-cube-cbrt29.0
Applied *-un-lft-identity29.0
Applied times-frac29.0
Applied unpow-prod-down29.0
Applied associate-*r*29.0
rmApplied sqrt-prod41.6
Final simplification32.3
herbie shell --seed 2020045
(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*))))))