\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 \leq -1.1949065200363964 \cdot 10^{-175}:\\
\;\;\;\;\sqrt{\left(\left(n \cdot 2\right) \cdot U\right) \cdot \left(t + \frac{\ell}{Om} \cdot \left(\ell \cdot -2 + \left(n \cdot \frac{\ell}{Om}\right) \cdot \left(U* - U\right)\right)\right)}\\
\mathbf{elif}\;n \leq -3.389110959089207 \cdot 10^{-284}:\\
\;\;\;\;\sqrt{\left(n \cdot 2\right) \cdot \left(U \cdot \left(t + \frac{\ell}{Om} \cdot \left(\ell \cdot -2 + \left(n \cdot \frac{\ell}{Om}\right) \cdot \left(U* - U\right)\right)\right)\right)}\\
\mathbf{elif}\;n \leq 3.85280491822023 \cdot 10^{-86}:\\
\;\;\;\;\sqrt{\left(\left(n \cdot 2\right) \cdot U\right) \cdot \left(t + \frac{\ell}{Om} \cdot \left(\ell \cdot -2 + \left(\frac{\ell}{Om} \cdot \left(n \cdot U*\right) - \frac{\ell}{Om} \cdot \left(n \cdot U\right)\right)\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{n \cdot 2} \cdot \sqrt{U \cdot \left(t + \frac{\ell}{Om} \cdot \left(\ell \cdot -2 + \left(n \cdot \frac{\ell}{Om}\right) \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 (<= n -1.1949065200363964e-175)
(sqrt
(*
(* (* n 2.0) U)
(+ t (* (/ l Om) (+ (* l -2.0) (* (* n (/ l Om)) (- U* U)))))))
(if (<= n -3.389110959089207e-284)
(sqrt
(*
(* n 2.0)
(* U (+ t (* (/ l Om) (+ (* l -2.0) (* (* n (/ l Om)) (- U* U))))))))
(if (<= n 3.85280491822023e-86)
(sqrt
(*
(* (* n 2.0) U)
(+
t
(*
(/ l Om)
(+ (* l -2.0) (- (* (/ l Om) (* n U*)) (* (/ l Om) (* n U))))))))
(*
(sqrt (* n 2.0))
(sqrt
(*
U
(+ 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 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 tmp;
if (n <= -1.1949065200363964e-175) {
tmp = sqrt(((n * 2.0) * U) * (t + ((l / Om) * ((l * -2.0) + ((n * (l / Om)) * (U_42_ - U))))));
} else if (n <= -3.389110959089207e-284) {
tmp = sqrt((n * 2.0) * (U * (t + ((l / Om) * ((l * -2.0) + ((n * (l / Om)) * (U_42_ - U)))))));
} else if (n <= 3.85280491822023e-86) {
tmp = sqrt(((n * 2.0) * U) * (t + ((l / Om) * ((l * -2.0) + (((l / Om) * (n * U_42_)) - ((l / Om) * (n * U)))))));
} else {
tmp = sqrt(n * 2.0) * sqrt(U * (t + ((l / Om) * ((l * -2.0) + ((n * (l / Om)) * (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 n < -1.1949065200363964e-175Initial program 32.6
Simplified31.6
rmApplied associate-*r*_binary64_1828.7
Simplified28.7
if -1.1949065200363964e-175 < n < -3.38911095908920693e-284Initial program 40.7
Simplified36.2
rmApplied associate-*r*_binary64_1836.3
Simplified36.3
rmApplied associate-*l*_binary64_1933.9
if -3.38911095908920693e-284 < n < 3.85280491822023023e-86Initial program 38.2
Simplified33.9
rmApplied sub-neg_binary64_7133.9
Applied distribute-rgt-in_binary64_2833.9
Applied distribute-rgt-in_binary64_2833.9
Simplified33.9
Simplified33.9
if 3.85280491822023023e-86 < n Initial program 31.7
Simplified31.4
rmApplied associate-*r*_binary64_1827.5
Simplified27.5
rmApplied associate-*l*_binary64_1928.3
rmApplied sqrt-prod_binary64_9422.3
Final simplification28.8
herbie shell --seed 2020352
(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*))))))