\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 -5.655452501094331 \cdot 10^{-277}:\\
\;\;\;\;\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)}^{2}\right) \cdot \left(U - U*\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)}^{2}\right) \cdot \left(U - U*\right)\right)}}\\
\mathbf{elif}\;t \leq 1.924388065751012 \cdot 10^{-191} \lor \neg \left(t \leq 4.430527507132508 \cdot 10^{+72}\right):\\
\;\;\;\;\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)}^{2}\right) \cdot \left(U - U*\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \frac{\ell \cdot \ell}{Om}\right) - n \cdot \left({\left(\frac{\ell}{Om}\right)}^{2} \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 -5.655452501094331e-277)
(*
(sqrt
(sqrt
(*
(* (* 2.0 n) U)
(-
(- t (* 2.0 (* l (/ l Om))))
(* (* n (pow (/ l Om) 2.0)) (- U U*))))))
(sqrt
(sqrt
(*
(* (* 2.0 n) U)
(-
(- t (* 2.0 (* l (/ l Om))))
(* (* n (pow (/ l Om) 2.0)) (- U U*)))))))
(if (or (<= t 1.924388065751012e-191) (not (<= t 4.430527507132508e+72)))
(*
(sqrt (* (* 2.0 n) U))
(sqrt
(- (- t (* 2.0 (* l (/ l Om)))) (* (* n (pow (/ l Om) 2.0)) (- U U*)))))
(sqrt
(*
(* (* 2.0 n) U)
(-
(- t (* 2.0 (/ (* l l) Om)))
(* n (* (pow (/ l Om) 2.0) (- 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 <= -5.655452501094331e-277)) {
tmp = ((double) (((double) sqrt(((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) sqrt(((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_))))))))))))));
} else {
double tmp_1;
if (((t <= 1.924388065751012e-191) || !(t <= 4.430527507132508e+72))) {
tmp_1 = ((double) (((double) sqrt(((double) (((double) (2.0 * n)) * U)))) * ((double) sqrt(((double) (((double) (t - ((double) (2.0 * ((double) (l * (l / Om))))))) - ((double) (((double) (n * ((double) pow((l / Om), 2.0)))) * ((double) (U - U_42_))))))))));
} else {
tmp_1 = ((double) sqrt(((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (((double) (t - ((double) (2.0 * (((double) (l * l)) / Om))))) - ((double) (n * ((double) (((double) pow((l / Om), 2.0)) * ((double) (U - U_42_))))))))))));
}
tmp = tmp_1;
}
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 < -5.65545250109433054e-277Initial program 34.6
rmApplied *-un-lft-identity_binary6434.6
Applied times-frac_binary6431.9
Simplified31.9
rmApplied add-sqr-sqrt_binary6432.1
if -5.65545250109433054e-277 < t < 1.924388065751012e-191 or 4.43052750713250768e72 < t Initial program 36.7
rmApplied *-un-lft-identity_binary6436.7
Applied times-frac_binary6433.9
Simplified33.9
rmApplied sqrt-prod_binary6430.0
if 1.924388065751012e-191 < t < 4.43052750713250768e72Initial program 32.5
rmApplied associate-*l*_binary6433.1
Final simplification31.6
herbie shell --seed 2020204
(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*))))))