\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 5.3087767675532778 \cdot 10^{-246}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - \left(\left(\left(n \cdot \ell\right) \cdot {\left(\frac{1}{{Om}^{1}}\right)}^{1}\right) \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left(U - U*\right)\right)}\\
\mathbf{elif}\;t \le 3.5853438188507749 \cdot 10^{-68} \lor \neg \left(t \le 1.1743060886816904 \cdot 10^{137}\right):\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot U} \cdot \sqrt{\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{2}\right) \cdot \left(U - U*\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\right) - \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{2}\right) \cdot \left(U - U*\right)\right)\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r210286 = 2.0;
double r210287 = n;
double r210288 = r210286 * r210287;
double r210289 = U;
double r210290 = r210288 * r210289;
double r210291 = t;
double r210292 = l;
double r210293 = r210292 * r210292;
double r210294 = Om;
double r210295 = r210293 / r210294;
double r210296 = r210286 * r210295;
double r210297 = r210291 - r210296;
double r210298 = r210292 / r210294;
double r210299 = pow(r210298, r210286);
double r210300 = r210287 * r210299;
double r210301 = U_;
double r210302 = r210289 - r210301;
double r210303 = r210300 * r210302;
double r210304 = r210297 - r210303;
double r210305 = r210290 * r210304;
double r210306 = sqrt(r210305);
return r210306;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r210307 = t;
double r210308 = 5.308776767553278e-246;
bool r210309 = r210307 <= r210308;
double r210310 = 2.0;
double r210311 = n;
double r210312 = r210310 * r210311;
double r210313 = U;
double r210314 = r210312 * r210313;
double r210315 = l;
double r210316 = Om;
double r210317 = r210316 / r210315;
double r210318 = r210315 / r210317;
double r210319 = r210310 * r210318;
double r210320 = r210307 - r210319;
double r210321 = r210311 * r210315;
double r210322 = 1.0;
double r210323 = 1.0;
double r210324 = pow(r210316, r210323);
double r210325 = r210322 / r210324;
double r210326 = pow(r210325, r210323);
double r210327 = r210321 * r210326;
double r210328 = r210315 / r210316;
double r210329 = 2.0;
double r210330 = r210310 / r210329;
double r210331 = pow(r210328, r210330);
double r210332 = r210327 * r210331;
double r210333 = U_;
double r210334 = r210313 - r210333;
double r210335 = r210332 * r210334;
double r210336 = r210320 - r210335;
double r210337 = r210314 * r210336;
double r210338 = sqrt(r210337);
double r210339 = 3.585343818850775e-68;
bool r210340 = r210307 <= r210339;
double r210341 = 1.1743060886816904e+137;
bool r210342 = r210307 <= r210341;
double r210343 = !r210342;
bool r210344 = r210340 || r210343;
double r210345 = sqrt(r210314);
double r210346 = pow(r210328, r210310);
double r210347 = r210311 * r210346;
double r210348 = r210347 * r210334;
double r210349 = r210320 - r210348;
double r210350 = sqrt(r210349);
double r210351 = r210345 * r210350;
double r210352 = r210313 * r210349;
double r210353 = r210312 * r210352;
double r210354 = sqrt(r210353);
double r210355 = r210344 ? r210351 : r210354;
double r210356 = r210309 ? r210338 : r210355;
return r210356;
}



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 < 5.308776767553278e-246Initial program 35.2
rmApplied associate-/l*32.2
rmApplied sqr-pow32.2
Applied associate-*r*31.2
Taylor expanded around 0 32.4
if 5.308776767553278e-246 < t < 3.585343818850775e-68 or 1.1743060886816904e+137 < t Initial program 37.0
rmApplied associate-/l*34.3
rmApplied sqrt-prod29.6
if 3.585343818850775e-68 < t < 1.1743060886816904e+137Initial program 30.8
rmApplied associate-/l*28.1
rmApplied associate-*l*27.3
Final simplification30.7
herbie shell --seed 2020042
(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*))))))