\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.0567111237886108 \cdot 10^{-140}:\\
\;\;\;\;\sqrt{\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)}} \cdot \sqrt{\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 1.59180529795114251 \cdot 10^{187}:\\
\;\;\;\;\sqrt{{\left(\left(\left(2 \cdot n\right) \cdot \left(t - \left(2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right) - \left(-n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(2 \cdot \frac{2}{2}\right)}\right) \cdot \left(U - U*\right)\right)\right)\right) \cdot U\right)}^{1}}\\
\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 r65 = 2.0;
double r66 = n;
double r67 = r65 * r66;
double r68 = U;
double r69 = r67 * r68;
double r70 = t;
double r71 = l;
double r72 = r71 * r71;
double r73 = Om;
double r74 = r72 / r73;
double r75 = r65 * r74;
double r76 = r70 - r75;
double r77 = r71 / r73;
double r78 = pow(r77, r65);
double r79 = r66 * r78;
double r80 = U_;
double r81 = r68 - r80;
double r82 = r79 * r81;
double r83 = r76 - r82;
double r84 = r69 * r83;
double r85 = sqrt(r84);
return r85;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r86 = t;
double r87 = 6.056711123788611e-140;
bool r88 = r86 <= r87;
double r89 = 2.0;
double r90 = n;
double r91 = r89 * r90;
double r92 = U;
double r93 = r91 * r92;
double r94 = l;
double r95 = Om;
double r96 = r94 / r95;
double r97 = r94 * r96;
double r98 = r89 * r97;
double r99 = r86 - r98;
double r100 = 2.0;
double r101 = r89 / r100;
double r102 = pow(r96, r101);
double r103 = r90 * r102;
double r104 = U_;
double r105 = r92 - r104;
double r106 = r102 * r105;
double r107 = r103 * r106;
double r108 = r99 - r107;
double r109 = r93 * r108;
double r110 = sqrt(r109);
double r111 = sqrt(r110);
double r112 = r111 * r111;
double r113 = 1.5918052979511425e+187;
bool r114 = r86 <= r113;
double r115 = r100 * r101;
double r116 = pow(r96, r115);
double r117 = r90 * r116;
double r118 = -r117;
double r119 = r118 * r105;
double r120 = r98 - r119;
double r121 = r86 - r120;
double r122 = r91 * r121;
double r123 = r122 * r92;
double r124 = 1.0;
double r125 = pow(r123, r124);
double r126 = sqrt(r125);
double r127 = sqrt(r93);
double r128 = sqrt(r108);
double r129 = r127 * r128;
double r130 = r114 ? r126 : r129;
double r131 = r88 ? r112 : r130;
return r131;
}



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.056711123788611e-140Initial program 35.3
rmApplied *-un-lft-identity35.3
Applied times-frac32.9
Simplified32.9
rmApplied sqr-pow32.9
Applied associate-*r*32.0
rmApplied associate-*l*31.6
rmApplied add-sqr-sqrt31.7
if 6.056711123788611e-140 < t < 1.5918052979511425e+187Initial program 31.9
rmApplied *-un-lft-identity31.9
Applied times-frac29.1
Simplified29.1
rmApplied sqr-pow29.1
Applied associate-*r*28.4
rmApplied pow128.4
Applied pow128.4
Applied pow128.4
Applied pow128.4
Applied pow-prod-down28.4
Applied pow-prod-down28.4
Applied pow-prod-down28.4
Simplified28.7
if 1.5918052979511425e+187 < t Initial program 38.9
rmApplied *-un-lft-identity38.9
Applied times-frac35.9
Simplified35.9
rmApplied sqr-pow35.9
Applied associate-*r*35.2
rmApplied associate-*l*35.7
rmApplied sqrt-prod23.2
Final simplification30.1
herbie shell --seed 2020025
(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*))))))