\[\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}
t_1 := \ell \cdot \frac{\ell}{Om}\\
t_2 := {\left(\frac{\ell}{Om}\right)}^{2}\\
t_3 := n \cdot t_2\\
t_4 := \left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t + \frac{\ell \cdot \ell}{Om} \cdot -2\right) + t_3 \cdot \left(U* - U\right)\right)\\
\mathbf{if}\;t_4 \leq 0:\\
\;\;\;\;\sqrt{2 \cdot n} \cdot \sqrt{U \cdot \left(t - \mathsf{fma}\left(2, t_1, t_3 \cdot \left(U - U*\right)\right)\right)}\\
\mathbf{elif}\;t_4 \leq 5 \cdot 10^{+293}:\\
\;\;\;\;\sqrt{t_4}\\
\mathbf{elif}\;t_4 \leq \infty:\\
\;\;\;\;\sqrt{t - \mathsf{fma}\left(2, t_1, t_2 \cdot \left(n \cdot \left(U - U*\right)\right)\right)} \cdot \sqrt{2 \cdot \left(n \cdot U\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\mathsf{fma}\left(2, n \cdot \left(U \cdot t\right), -4 \cdot \frac{\left(U \cdot \ell\right) \cdot \left(n \cdot \ell\right)}{Om}\right)}\\
\end{array}
\]
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 t_1 = l * (l / Om);
double t_2 = pow((l / Om), 2.0);
double t_3 = n * t_2;
double t_4 = ((2.0 * n) * U) * ((t + (((l * l) / Om) * -2.0)) + (t_3 * (U_42_ - U)));
double tmp;
if (t_4 <= 0.0) {
tmp = sqrt((2.0 * n)) * sqrt((U * (t - fma(2.0, t_1, (t_3 * (U - U_42_))))));
} else if (t_4 <= 5e+293) {
tmp = sqrt(t_4);
} else if (t_4 <= ((double) INFINITY)) {
tmp = sqrt((t - fma(2.0, t_1, (t_2 * (n * (U - U_42_)))))) * sqrt((2.0 * (n * U)));
} else {
tmp = sqrt(fma(2.0, (n * (U * t)), (-4.0 * (((U * l) * (n * l)) / Om))));
}
return tmp;
}
function code(n, U, t, l, Om, U_42_)
return sqrt(Float64(Float64(Float64(2.0 * n) * U) * Float64(Float64(t - Float64(2.0 * Float64(Float64(l * l) / Om))) - Float64(Float64(n * (Float64(l / Om) ^ 2.0)) * Float64(U - U_42_)))))
end
↓
function code(n, U, t, l, Om, U_42_)
t_1 = Float64(l * Float64(l / Om))
t_2 = Float64(l / Om) ^ 2.0
t_3 = Float64(n * t_2)
t_4 = Float64(Float64(Float64(2.0 * n) * U) * Float64(Float64(t + Float64(Float64(Float64(l * l) / Om) * -2.0)) + Float64(t_3 * Float64(U_42_ - U))))
tmp = 0.0
if (t_4 <= 0.0)
tmp = Float64(sqrt(Float64(2.0 * n)) * sqrt(Float64(U * Float64(t - fma(2.0, t_1, Float64(t_3 * Float64(U - U_42_)))))));
elseif (t_4 <= 5e+293)
tmp = sqrt(t_4);
elseif (t_4 <= Inf)
tmp = Float64(sqrt(Float64(t - fma(2.0, t_1, Float64(t_2 * Float64(n * Float64(U - U_42_)))))) * sqrt(Float64(2.0 * Float64(n * U))));
else
tmp = sqrt(fma(2.0, Float64(n * Float64(U * t)), Float64(-4.0 * Float64(Float64(Float64(U * l) * Float64(n * l)) / Om))));
end
return tmp
end
code[n_, U_, t_, l_, Om_, U$42$_] := N[Sqrt[N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(N[(t - N[(2.0 * N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(n * N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
↓
code[n_, U_, t_, l_, Om_, U$42$_] := Block[{t$95$1 = N[(l * N[(l / Om), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$3 = N[(n * t$95$2), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(2.0 * n), $MachinePrecision] * U), $MachinePrecision] * N[(N[(t + N[(N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision] * -2.0), $MachinePrecision]), $MachinePrecision] + N[(t$95$3 * N[(U$42$ - U), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$4, 0.0], N[(N[Sqrt[N[(2.0 * n), $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(U * N[(t - N[(2.0 * t$95$1 + N[(t$95$3 * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$4, 5e+293], N[Sqrt[t$95$4], $MachinePrecision], If[LessEqual[t$95$4, Infinity], N[(N[Sqrt[N[(t - N[(2.0 * t$95$1 + N[(t$95$2 * N[(n * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(2.0 * N[(n * U), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[Sqrt[N[(2.0 * N[(n * N[(U * t), $MachinePrecision]), $MachinePrecision] + N[(-4.0 * N[(N[(N[(U * l), $MachinePrecision] * N[(n * l), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]]]]]]]]
\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}
t_1 := \ell \cdot \frac{\ell}{Om}\\
t_2 := {\left(\frac{\ell}{Om}\right)}^{2}\\
t_3 := n \cdot t_2\\
t_4 := \left(\left(2 \cdot n\right) \cdot U\right) \cdot \left(\left(t + \frac{\ell \cdot \ell}{Om} \cdot -2\right) + t_3 \cdot \left(U* - U\right)\right)\\
\mathbf{if}\;t_4 \leq 0:\\
\;\;\;\;\sqrt{2 \cdot n} \cdot \sqrt{U \cdot \left(t - \mathsf{fma}\left(2, t_1, t_3 \cdot \left(U - U*\right)\right)\right)}\\
\mathbf{elif}\;t_4 \leq 5 \cdot 10^{+293}:\\
\;\;\;\;\sqrt{t_4}\\
\mathbf{elif}\;t_4 \leq \infty:\\
\;\;\;\;\sqrt{t - \mathsf{fma}\left(2, t_1, t_2 \cdot \left(n \cdot \left(U - U*\right)\right)\right)} \cdot \sqrt{2 \cdot \left(n \cdot U\right)}\\
\mathbf{else}:\\
\;\;\;\;\sqrt{\mathsf{fma}\left(2, n \cdot \left(U \cdot t\right), -4 \cdot \frac{\left(U \cdot \ell\right) \cdot \left(n \cdot \ell\right)}{Om}\right)}\\
\end{array}