\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 \leq 1.312713436382444 \cdot 10^{-304}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(t + \frac{\ell}{Om} \cdot \left(\ell \cdot -2 + \left(\sqrt[3]{n} \cdot \sqrt[3]{n}\right) \cdot \left(\sqrt[3]{n} \cdot \left(\frac{\ell}{Om} \cdot \left(U* - U\right)\right)\right)\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot U} \cdot \sqrt{t + \frac{\ell}{Om} \cdot \left(\ell \cdot -2 + n \cdot \left(\frac{\ell}{Om} \cdot \left(U* - U\right)\right)\right)}\\
\end{array}(FPCore (n U t l Om U*) :precision binary64 (sqrt (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*))))))
(FPCore (n U t l Om U*)
:precision binary64
(if (<= t 1.312713436382444e-304)
(sqrt
(*
(* (* 2.0 n) U)
(+
t
(*
(/ l Om)
(+
(* l -2.0)
(* (* (cbrt n) (cbrt n)) (* (cbrt n) (* (/ l Om) (- U* U)))))))))
(*
(sqrt (* (* 2.0 n) U))
(sqrt (+ t (* (/ l Om) (+ (* l -2.0) (* n (* (/ l Om) (- U* U))))))))))double code(double n, double U, double t, double l, double Om, double U_42_) {
return ((double) sqrt(((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (((double) (t - ((double) (2.0 * (((double) (l * l)) / Om))))) - ((double) (((double) (n * ((double) pow((l / Om), 2.0)))) * ((double) (U - U_42_))))))))));
}
double code(double n, double U, double t, double l, double Om, double U_42_) {
double tmp;
if ((t <= 1.312713436382444e-304)) {
tmp = ((double) sqrt(((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (t + ((double) ((l / Om) * ((double) (((double) (l * -2.0)) + ((double) (((double) (((double) cbrt(n)) * ((double) cbrt(n)))) * ((double) (((double) cbrt(n)) * ((double) ((l / Om) * ((double) (U_42_ - U))))))))))))))))));
} else {
tmp = ((double) (((double) sqrt(((double) (((double) (2.0 * n)) * U)))) * ((double) sqrt(((double) (t + ((double) ((l / Om) * ((double) (((double) (l * -2.0)) + ((double) (n * ((double) ((l / Om) * ((double) (U_42_ - U))))))))))))))));
}
return tmp;
}



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.31271343638244406e-304Initial program 33.5
Simplified29.8
rmApplied add-cube-cbrt_binary6429.8
Applied associate-*l*_binary6429.8
Simplified29.8
if 1.31271343638244406e-304 < t Initial program 35.5
Simplified31.8
rmApplied sqrt-prod_binary6429.2
Final simplification29.5
herbie shell --seed 2020210
(FPCore (n U t l Om U*)
:name "Toniolo and Linder, Equation (13)"
:precision binary64
(sqrt (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*))))))