\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}\;U \le -311690872571746179874816 \lor \neg \left(U \le 6.172668847283660136156694814890219267888 \cdot 10^{-122}\right):\\
\;\;\;\;\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 \left(U \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)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r168212 = 2.0;
double r168213 = n;
double r168214 = r168212 * r168213;
double r168215 = U;
double r168216 = r168214 * r168215;
double r168217 = t;
double r168218 = l;
double r168219 = r168218 * r168218;
double r168220 = Om;
double r168221 = r168219 / r168220;
double r168222 = r168212 * r168221;
double r168223 = r168217 - r168222;
double r168224 = r168218 / r168220;
double r168225 = pow(r168224, r168212);
double r168226 = r168213 * r168225;
double r168227 = U_;
double r168228 = r168215 - r168227;
double r168229 = r168226 * r168228;
double r168230 = r168223 - r168229;
double r168231 = r168216 * r168230;
double r168232 = sqrt(r168231);
return r168232;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r168233 = U;
double r168234 = -3.116908725717462e+23;
bool r168235 = r168233 <= r168234;
double r168236 = 6.17266884728366e-122;
bool r168237 = r168233 <= r168236;
double r168238 = !r168237;
bool r168239 = r168235 || r168238;
double r168240 = 2.0;
double r168241 = n;
double r168242 = r168240 * r168241;
double r168243 = r168242 * r168233;
double r168244 = t;
double r168245 = l;
double r168246 = Om;
double r168247 = r168246 / r168245;
double r168248 = r168245 / r168247;
double r168249 = r168240 * r168248;
double r168250 = r168244 - r168249;
double r168251 = r168245 / r168246;
double r168252 = 2.0;
double r168253 = r168240 / r168252;
double r168254 = pow(r168251, r168253);
double r168255 = r168241 * r168254;
double r168256 = U_;
double r168257 = r168233 - r168256;
double r168258 = r168254 * r168257;
double r168259 = r168255 * r168258;
double r168260 = r168250 - r168259;
double r168261 = r168243 * r168260;
double r168262 = sqrt(r168261);
double r168263 = r168233 * r168260;
double r168264 = r168242 * r168263;
double r168265 = sqrt(r168264);
double r168266 = r168239 ? r168262 : r168265;
return r168266;
}



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 U < -3.116908725717462e+23 or 6.17266884728366e-122 < U Initial program 30.2
rmApplied sqr-pow30.2
Applied associate-*r*29.6
rmApplied associate-*l*29.9
rmApplied associate-/l*27.3
if -3.116908725717462e+23 < U < 6.17266884728366e-122Initial program 38.0
rmApplied sqr-pow38.0
Applied associate-*r*37.0
rmApplied associate-*l*36.5
rmApplied associate-/l*33.9
rmApplied associate-*l*29.7
Final simplification28.6
herbie shell --seed 2019362
(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*))))))