\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}\;n \le -2.391153254400287088556160785530461888584 \cdot 10^{-114} \lor \neg \left(n \le 1.751535212382831785866117409411530213867 \cdot 10^{-224}\right):\\
\;\;\;\;\sqrt{\left(t - \mathsf{fma}\left(2, \frac{\ell}{\frac{Om}{\ell}}, \left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left(\left(U - U*\right) \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right)\right)\right) \cdot \left(\left(2 \cdot n\right) \cdot U\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(\left(t - \mathsf{fma}\left(\frac{\ell}{\frac{Om}{\ell}}, 2, n \cdot \left({\left(\frac{\ell}{Om}\right)}^{\left(2 \cdot \frac{2}{2}\right)} \cdot \left(U - U*\right)\right)\right)\right) \cdot \left(2 \cdot n\right)\right) \cdot U}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r83283 = 2.0;
double r83284 = n;
double r83285 = r83283 * r83284;
double r83286 = U;
double r83287 = r83285 * r83286;
double r83288 = t;
double r83289 = l;
double r83290 = r83289 * r83289;
double r83291 = Om;
double r83292 = r83290 / r83291;
double r83293 = r83283 * r83292;
double r83294 = r83288 - r83293;
double r83295 = r83289 / r83291;
double r83296 = pow(r83295, r83283);
double r83297 = r83284 * r83296;
double r83298 = U_;
double r83299 = r83286 - r83298;
double r83300 = r83297 * r83299;
double r83301 = r83294 - r83300;
double r83302 = r83287 * r83301;
double r83303 = sqrt(r83302);
return r83303;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r83304 = n;
double r83305 = -2.391153254400287e-114;
bool r83306 = r83304 <= r83305;
double r83307 = 1.7515352123828318e-224;
bool r83308 = r83304 <= r83307;
double r83309 = !r83308;
bool r83310 = r83306 || r83309;
double r83311 = t;
double r83312 = 2.0;
double r83313 = l;
double r83314 = Om;
double r83315 = r83314 / r83313;
double r83316 = r83313 / r83315;
double r83317 = r83313 / r83314;
double r83318 = 2.0;
double r83319 = r83312 / r83318;
double r83320 = pow(r83317, r83319);
double r83321 = r83304 * r83320;
double r83322 = U;
double r83323 = U_;
double r83324 = r83322 - r83323;
double r83325 = r83324 * r83320;
double r83326 = r83321 * r83325;
double r83327 = fma(r83312, r83316, r83326);
double r83328 = r83311 - r83327;
double r83329 = r83312 * r83304;
double r83330 = r83329 * r83322;
double r83331 = r83328 * r83330;
double r83332 = sqrt(r83331);
double r83333 = r83318 * r83319;
double r83334 = pow(r83317, r83333);
double r83335 = r83334 * r83324;
double r83336 = r83304 * r83335;
double r83337 = fma(r83316, r83312, r83336);
double r83338 = r83311 - r83337;
double r83339 = r83338 * r83329;
double r83340 = r83339 * r83322;
double r83341 = sqrt(r83340);
double r83342 = r83310 ? r83332 : r83341;
return r83342;
}



Bits error versus n



Bits error versus U



Bits error versus t



Bits error versus l



Bits error versus Om



Bits error versus U*
if n < -2.391153254400287e-114 or 1.7515352123828318e-224 < n Initial program 33.3
Simplified33.3
rmApplied associate-/l*30.5
rmApplied sqr-pow30.5
Applied associate-*r*29.6
rmApplied associate-*l*28.8
Simplified28.8
if -2.391153254400287e-114 < n < 1.7515352123828318e-224Initial program 37.7
Simplified37.7
rmApplied associate-/l*34.7
rmApplied sqr-pow34.7
Applied associate-*r*33.8
rmApplied associate-*l*35.0
Simplified35.0
rmApplied associate-*r*30.5
Simplified33.3
Final simplification30.1
herbie shell --seed 2019212 +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*))))))