\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}\;\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) \le -2.8744636277718751 \cdot 10^{-166}:\\
\;\;\;\;\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)}^{\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{elif}\;\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) \le 1.06068691486357968 \cdot 10^{-89}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \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)\right)}\\
\mathbf{elif}\;\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) \le 2.64937153189439227 \cdot 10^{298}:\\
\;\;\;\;\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(\left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\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(\left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left(U - U*\right)\right)}}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot U} \cdot \sqrt{\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - \left(\left(n \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left(U - U*\right)}\\
\end{array}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) (((double) (l * l)) / Om)))))) - ((double) (((double) (n * ((double) pow(((double) (l / Om)), 2.0)))) * ((double) (U - U_42_))))))))));
}
double code(double n, double U, double t, double l, double Om, double U_42_) {
double VAR;
if ((((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (((double) (t - ((double) (2.0 * ((double) (((double) (l * l)) / Om)))))) - ((double) (((double) (n * ((double) pow(((double) (l / Om)), 2.0)))) * ((double) (U - U_42_)))))))) <= -2.874463627771875e-166)) {
VAR = ((double) sqrt(((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (((double) (t - ((double) (2.0 * ((double) (l * ((double) (l / Om)))))))) - ((double) (((double) (n * ((double) pow(((double) (l / Om)), ((double) (2.0 / 2.0)))))) * ((double) (((double) pow(((double) (l / Om)), ((double) (2.0 / 2.0)))) * ((double) (U - U_42_))))))))))));
} else {
double VAR_1;
if ((((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (((double) (t - ((double) (2.0 * ((double) (((double) (l * l)) / Om)))))) - ((double) (((double) (n * ((double) pow(((double) (l / Om)), 2.0)))) * ((double) (U - U_42_)))))))) <= 1.0606869148635797e-89)) {
VAR_1 = ((double) sqrt(((double) (((double) (2.0 * n)) * ((double) (U * ((double) (((double) (t - ((double) (2.0 * ((double) (l * ((double) (l / Om)))))))) - ((double) (((double) (n * ((double) pow(((double) (l / Om)), 2.0)))) * ((double) (U - U_42_))))))))))));
} else {
double VAR_2;
if ((((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (((double) (t - ((double) (2.0 * ((double) (((double) (l * l)) / Om)))))) - ((double) (((double) (n * ((double) pow(((double) (l / Om)), 2.0)))) * ((double) (U - U_42_)))))))) <= 2.6493715318943923e+298)) {
VAR_2 = ((double) (((double) sqrt(((double) sqrt(((double) (((double) (((double) (2.0 * n)) * U)) * ((double) (((double) (t - ((double) (2.0 * ((double) (l * ((double) (l / Om)))))))) - ((double) (((double) (((double) (n * ((double) pow(((double) (l / Om)), ((double) (2.0 / 2.0)))))) * ((double) pow(((double) (l / Om)), ((double) (2.0 / 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 * ((double) (l / Om)))))))) - ((double) (((double) (((double) (n * ((double) pow(((double) (l / Om)), ((double) (2.0 / 2.0)))))) * ((double) pow(((double) (l / Om)), ((double) (2.0 / 2.0)))))) * ((double) (U - U_42_))))))))))))));
} else {
VAR_2 = ((double) (((double) sqrt(((double) (((double) (2.0 * n)) * U)))) * ((double) sqrt(((double) (((double) (t - ((double) (2.0 * ((double) (l * ((double) (l / Om)))))))) - ((double) (((double) (((double) (n * ((double) pow(((double) (l / Om)), ((double) (2.0 / 2.0)))))) * ((double) pow(((double) (l / Om)), ((double) (2.0 / 2.0)))))) * ((double) (U - U_42_))))))))));
}
VAR_1 = VAR_2;
}
VAR = VAR_1;
}
return VAR;
}



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 (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*)))) < -2.874463627771875e-166Initial program 64.0
rmApplied *-un-lft-identity64.0
Applied times-frac50.2
Simplified50.2
rmApplied sqr-pow50.2
Applied associate-*r*26.5
rmApplied associate-*l*20.3
if -2.874463627771875e-166 < (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*)))) < 1.0606869148635797e-89Initial program 31.8
rmApplied *-un-lft-identity31.8
Applied times-frac31.8
Simplified31.8
rmApplied associate-*l*25.3
if 1.0606869148635797e-89 < (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*)))) < 2.6493715318943923e+298Initial program 0.8
rmApplied *-un-lft-identity0.8
Applied times-frac0.8
Simplified0.8
rmApplied sqr-pow0.8
Applied associate-*r*0.5
rmApplied add-sqr-sqrt0.9
if 2.6493715318943923e+298 < (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*)))) Initial program 63.1
rmApplied *-un-lft-identity63.1
Applied times-frac56.8
Simplified56.8
rmApplied sqr-pow56.8
Applied associate-*r*56.3
rmApplied sqrt-prod54.6
Final simplification28.7
herbie shell --seed 2020128
(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*))))))