\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.25772108028519783 \cdot 10^{120}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \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)\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)}^{2}\right) \cdot \left(U - U*\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r170291 = 2.0;
double r170292 = n;
double r170293 = r170291 * r170292;
double r170294 = U;
double r170295 = r170293 * r170294;
double r170296 = t;
double r170297 = l;
double r170298 = r170297 * r170297;
double r170299 = Om;
double r170300 = r170298 / r170299;
double r170301 = r170291 * r170300;
double r170302 = r170296 - r170301;
double r170303 = r170297 / r170299;
double r170304 = pow(r170303, r170291);
double r170305 = r170292 * r170304;
double r170306 = U_;
double r170307 = r170294 - r170306;
double r170308 = r170305 * r170307;
double r170309 = r170302 - r170308;
double r170310 = r170295 * r170309;
double r170311 = sqrt(r170310);
return r170311;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r170312 = t;
double r170313 = 1.2577210802851978e+120;
bool r170314 = r170312 <= r170313;
double r170315 = 2.0;
double r170316 = n;
double r170317 = r170315 * r170316;
double r170318 = U;
double r170319 = l;
double r170320 = Om;
double r170321 = r170319 / r170320;
double r170322 = r170319 * r170321;
double r170323 = r170315 * r170322;
double r170324 = r170312 - r170323;
double r170325 = 2.0;
double r170326 = r170315 / r170325;
double r170327 = pow(r170321, r170326);
double r170328 = r170316 * r170327;
double r170329 = U_;
double r170330 = r170318 - r170329;
double r170331 = r170327 * r170330;
double r170332 = r170328 * r170331;
double r170333 = r170324 - r170332;
double r170334 = r170318 * r170333;
double r170335 = r170317 * r170334;
double r170336 = sqrt(r170335);
double r170337 = r170317 * r170318;
double r170338 = sqrt(r170337);
double r170339 = pow(r170321, r170315);
double r170340 = r170316 * r170339;
double r170341 = r170340 * r170330;
double r170342 = r170324 - r170341;
double r170343 = sqrt(r170342);
double r170344 = r170338 * r170343;
double r170345 = r170314 ? r170336 : r170344;
return r170345;
}



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.2577210802851978e+120Initial program 34.1
rmApplied *-un-lft-identity34.1
Applied times-frac31.1
Simplified31.1
rmApplied associate-*l*31.0
rmApplied sqr-pow31.0
Applied associate-*r*29.9
rmApplied associate-*l*29.9
if 1.2577210802851978e+120 < t Initial program 38.0
rmApplied *-un-lft-identity38.0
Applied times-frac34.8
Simplified34.8
rmApplied sqrt-prod25.6
Final simplification29.1
herbie shell --seed 2019198
(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*))))))