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 = 2.0 * (n * (U * t));
double t_2 = sqrt((t_1 + (-2.0 * (((n * (U * l)) * ((2.0 * l) - ((l * (n * U_42_)) / Om))) / Om))));
double t_3 = Om / (U * l);
double t_4 = sqrt(((-2.0 * (n * U)) * ((((l / Om) * ((U - U_42_) * (n * (l / Om)))) + ((l / Om) * (2.0 * l))) - t)));
double tmp;
if (U <= -5.2e+64) {
tmp = t_4;
} else if (U <= -1.3e-299) {
tmp = t_2;
} else if (U <= 2.4e-277) {
tmp = sqrt(((2.0 * n) * ((U * t) + (fma((n / Om), ((U_42_ - U) / Om), (-2.0 / Om)) * (l * (U * l))))));
} else if (U <= 1.4e-180) {
tmp = t_4;
} else if (U <= 1e-141) {
tmp = sqrt((t_1 - (-2.0 * (n / (t_3 / ((l * -2.0) - (n / t_3)))))));
} else if (U <= 4.8e+103) {
tmp = t_2;
} else {
tmp = sqrt((2.0 * U)) * sqrt((n * t));
}
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(2.0 * Float64(n * Float64(U * t)))
t_2 = sqrt(Float64(t_1 + Float64(-2.0 * Float64(Float64(Float64(n * Float64(U * l)) * Float64(Float64(2.0 * l) - Float64(Float64(l * Float64(n * U_42_)) / Om))) / Om))))
t_3 = Float64(Om / Float64(U * l))
t_4 = sqrt(Float64(Float64(-2.0 * Float64(n * U)) * Float64(Float64(Float64(Float64(l / Om) * Float64(Float64(U - U_42_) * Float64(n * Float64(l / Om)))) + Float64(Float64(l / Om) * Float64(2.0 * l))) - t)))
tmp = 0.0
if (U <= -5.2e+64)
tmp = t_4;
elseif (U <= -1.3e-299)
tmp = t_2;
elseif (U <= 2.4e-277)
tmp = sqrt(Float64(Float64(2.0 * n) * Float64(Float64(U * t) + Float64(fma(Float64(n / Om), Float64(Float64(U_42_ - U) / Om), Float64(-2.0 / Om)) * Float64(l * Float64(U * l))))));
elseif (U <= 1.4e-180)
tmp = t_4;
elseif (U <= 1e-141)
tmp = sqrt(Float64(t_1 - Float64(-2.0 * Float64(n / Float64(t_3 / Float64(Float64(l * -2.0) - Float64(n / t_3)))))));
elseif (U <= 4.8e+103)
tmp = t_2;
else
tmp = Float64(sqrt(Float64(2.0 * U)) * sqrt(Float64(n * t)));
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[(2.0 * N[(n * N[(U * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(t$95$1 + N[(-2.0 * N[(N[(N[(n * N[(U * l), $MachinePrecision]), $MachinePrecision] * N[(N[(2.0 * l), $MachinePrecision] - N[(N[(l * N[(n * U$42$), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(Om / N[(U * l), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[Sqrt[N[(N[(-2.0 * N[(n * U), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(N[(l / Om), $MachinePrecision] * N[(N[(U - U$42$), $MachinePrecision] * N[(n * N[(l / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(l / Om), $MachinePrecision] * N[(2.0 * l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[U, -5.2e+64], t$95$4, If[LessEqual[U, -1.3e-299], t$95$2, If[LessEqual[U, 2.4e-277], N[Sqrt[N[(N[(2.0 * n), $MachinePrecision] * N[(N[(U * t), $MachinePrecision] + N[(N[(N[(n / Om), $MachinePrecision] * N[(N[(U$42$ - U), $MachinePrecision] / Om), $MachinePrecision] + N[(-2.0 / Om), $MachinePrecision]), $MachinePrecision] * N[(l * N[(U * l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[U, 1.4e-180], t$95$4, If[LessEqual[U, 1e-141], N[Sqrt[N[(t$95$1 - N[(-2.0 * N[(n / N[(t$95$3 / N[(N[(l * -2.0), $MachinePrecision] - N[(n / t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[U, 4.8e+103], t$95$2, N[(N[Sqrt[N[(2.0 * U), $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(n * t), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]]]]]]]