\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}\;U \le -171.9017586592347 \lor \neg \left(U \le 3.1811826424606883 \cdot 10^{99}\right):\\
\;\;\;\;\sqrt{\left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - 0\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\left(2 \cdot n\right) \cdot \left(U \cdot \left(\left(t - 2 \cdot \left(\ell \cdot \frac{\ell}{Om}\right)\right) - \left(\left(n \cdot {\left(\frac{{\ell}^{1}}{{Om}^{1}}\right)}^{1}\right) \cdot {\left(\frac{\ell}{Om}\right)}^{\left(\frac{2}{2}\right)}\right) \cdot \left(U - U*\right)\right)\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r170724 = 2.0;
double r170725 = n;
double r170726 = r170724 * r170725;
double r170727 = U;
double r170728 = r170726 * r170727;
double r170729 = t;
double r170730 = l;
double r170731 = r170730 * r170730;
double r170732 = Om;
double r170733 = r170731 / r170732;
double r170734 = r170724 * r170733;
double r170735 = r170729 - r170734;
double r170736 = r170730 / r170732;
double r170737 = pow(r170736, r170724);
double r170738 = r170725 * r170737;
double r170739 = U_;
double r170740 = r170727 - r170739;
double r170741 = r170738 * r170740;
double r170742 = r170735 - r170741;
double r170743 = r170728 * r170742;
double r170744 = sqrt(r170743);
return r170744;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r170745 = U;
double r170746 = -171.9017586592347;
bool r170747 = r170745 <= r170746;
double r170748 = 3.1811826424606883e+99;
bool r170749 = r170745 <= r170748;
double r170750 = !r170749;
bool r170751 = r170747 || r170750;
double r170752 = 2.0;
double r170753 = n;
double r170754 = r170752 * r170753;
double r170755 = r170754 * r170745;
double r170756 = t;
double r170757 = l;
double r170758 = Om;
double r170759 = r170757 / r170758;
double r170760 = r170757 * r170759;
double r170761 = r170752 * r170760;
double r170762 = r170756 - r170761;
double r170763 = 0.0;
double r170764 = r170762 - r170763;
double r170765 = r170755 * r170764;
double r170766 = sqrt(r170765);
double r170767 = 1.0;
double r170768 = pow(r170757, r170767);
double r170769 = pow(r170758, r170767);
double r170770 = r170768 / r170769;
double r170771 = pow(r170770, r170767);
double r170772 = r170753 * r170771;
double r170773 = 2.0;
double r170774 = r170752 / r170773;
double r170775 = pow(r170759, r170774);
double r170776 = r170772 * r170775;
double r170777 = U_;
double r170778 = r170745 - r170777;
double r170779 = r170776 * r170778;
double r170780 = r170762 - r170779;
double r170781 = r170745 * r170780;
double r170782 = r170754 * r170781;
double r170783 = sqrt(r170782);
double r170784 = r170751 ? r170766 : r170783;
return r170784;
}



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 U < -171.9017586592347 or 3.1811826424606883e+99 < U Initial program 29.9
rmApplied *-un-lft-identity29.9
Applied times-frac27.2
Simplified27.2
Taylor expanded around 0 29.0
if -171.9017586592347 < U < 3.1811826424606883e+99Initial program 36.6
rmApplied *-un-lft-identity36.6
Applied times-frac33.9
Simplified33.9
rmApplied sqr-pow33.9
Applied associate-*r*32.7
Taylor expanded around inf 32.7
rmApplied associate-*l*28.7
Final simplification28.8
herbie shell --seed 2020056
(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*))))))