\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 \le 9.479964460137454483482579161478165635978 \cdot 10^{-259}:\\
\;\;\;\;\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(\sqrt[3]{n} \cdot \sqrt[3]{n}\right) \cdot \left(\sqrt[3]{n} \cdot \left({\left(\frac{\ell}{Om}\right)}^{2} \cdot \left(U - U*\right)\right)\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) - n \cdot \left({\left(\frac{\ell}{Om}\right)}^{2} \cdot \left(U - U*\right)\right)}\\
\end{array}double f(double n, double U, double t, double l, double Om, double U_) {
double r5863126 = 2.0;
double r5863127 = n;
double r5863128 = r5863126 * r5863127;
double r5863129 = U;
double r5863130 = r5863128 * r5863129;
double r5863131 = t;
double r5863132 = l;
double r5863133 = r5863132 * r5863132;
double r5863134 = Om;
double r5863135 = r5863133 / r5863134;
double r5863136 = r5863126 * r5863135;
double r5863137 = r5863131 - r5863136;
double r5863138 = r5863132 / r5863134;
double r5863139 = pow(r5863138, r5863126);
double r5863140 = r5863127 * r5863139;
double r5863141 = U_;
double r5863142 = r5863129 - r5863141;
double r5863143 = r5863140 * r5863142;
double r5863144 = r5863137 - r5863143;
double r5863145 = r5863130 * r5863144;
double r5863146 = sqrt(r5863145);
return r5863146;
}
double f(double n, double U, double t, double l, double Om, double U_) {
double r5863147 = t;
double r5863148 = 9.479964460137454e-259;
bool r5863149 = r5863147 <= r5863148;
double r5863150 = 2.0;
double r5863151 = n;
double r5863152 = r5863150 * r5863151;
double r5863153 = U;
double r5863154 = r5863152 * r5863153;
double r5863155 = l;
double r5863156 = Om;
double r5863157 = r5863155 / r5863156;
double r5863158 = r5863155 * r5863157;
double r5863159 = r5863150 * r5863158;
double r5863160 = r5863147 - r5863159;
double r5863161 = cbrt(r5863151);
double r5863162 = r5863161 * r5863161;
double r5863163 = pow(r5863157, r5863150);
double r5863164 = U_;
double r5863165 = r5863153 - r5863164;
double r5863166 = r5863163 * r5863165;
double r5863167 = r5863161 * r5863166;
double r5863168 = r5863162 * r5863167;
double r5863169 = r5863160 - r5863168;
double r5863170 = r5863154 * r5863169;
double r5863171 = sqrt(r5863170);
double r5863172 = sqrt(r5863154);
double r5863173 = r5863151 * r5863166;
double r5863174 = r5863160 - r5863173;
double r5863175 = sqrt(r5863174);
double r5863176 = r5863172 * r5863175;
double r5863177 = r5863149 ? r5863171 : r5863176;
return r5863177;
}



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 < 9.479964460137454e-259Initial program 35.2
rmApplied *-un-lft-identity35.2
Applied times-frac32.7
Simplified32.7
rmApplied associate-*l*33.6
rmApplied add-cube-cbrt33.6
Applied associate-*l*33.6
if 9.479964460137454e-259 < t Initial program 34.8
rmApplied *-un-lft-identity34.8
Applied times-frac32.0
Simplified32.0
rmApplied associate-*l*32.7
rmApplied sqrt-prod30.2
Final simplification32.0
herbie shell --seed 2019173
(FPCore (n U t l Om U*)
:name "Toniolo and Linder, Equation (13)"
(sqrt (* (* (* 2.0 n) U) (- (- t (* 2.0 (/ (* l l) Om))) (* (* n (pow (/ l Om) 2.0)) (- U U*))))))