\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.1508118115456631 \cdot 10^{-280}:\\
\;\;\;\;\left(\sqrt[3]{\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\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[3]{\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\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) \cdot \sqrt[3]{\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell}{\frac{Om}{\ell}}\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{else}:\\
\;\;\;\;\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)}^{\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 code(double n, double U, double t, double l, double Om, double U_42_) {
return sqrt((((2.0 * n) * U) * ((t - (2.0 * ((l * l) / Om))) - ((n * pow((l / Om), 2.0)) * (U - U_42_)))));
}
double code(double n, double U, double t, double l, double Om, double U_42_) {
double temp;
if ((t <= 1.150811811545663e-280)) {
temp = ((cbrt(sqrt((((2.0 * n) * U) * ((t - (2.0 * (l / (Om / l)))) - ((n * pow((l / Om), (2.0 / 2.0))) * (pow((l / Om), (2.0 / 2.0)) * (U - U_42_))))))) * cbrt(sqrt((((2.0 * n) * U) * ((t - (2.0 * (l / (Om / l)))) - ((n * pow((l / Om), (2.0 / 2.0))) * (pow((l / Om), (2.0 / 2.0)) * (U - U_42_)))))))) * cbrt(sqrt((((2.0 * n) * U) * ((t - (2.0 * (l / (Om / l)))) - ((n * pow((l / Om), (2.0 / 2.0))) * (pow((l / Om), (2.0 / 2.0)) * (U - U_42_))))))));
} else {
temp = (sqrt(((2.0 * n) * U)) * sqrt(((t - (2.0 * (l / (Om / l)))) - ((n * pow((l / Om), (2.0 / 2.0))) * (pow((l / Om), (2.0 / 2.0)) * (U - U_42_))))));
}
return temp;
}



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.150811811545663e-280Initial program 34.9
rmApplied associate-/l*32.1
rmApplied sqr-pow32.1
Applied associate-*r*31.2
rmApplied associate-*l*31.0
rmApplied add-cube-cbrt31.5
if 1.150811811545663e-280 < t Initial program 34.1
rmApplied associate-/l*31.2
rmApplied sqr-pow31.2
Applied associate-*r*30.2
rmApplied associate-*l*30.1
rmApplied sqrt-prod28.7
Final simplification30.2
herbie shell --seed 2020057 +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*))))))