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 = (l * l) / Om;
double t_3 = pow((l / Om), 2.0);
double tmp;
if (n <= -3.4e+47) {
tmp = sqrt(((n * 2.0) * (U * (t + (((l / (Om / l)) * -2.0) + (n * ((t_2 * (U_42_ / Om)) - (t_2 * (U / Om)))))))));
} else if (n <= 1.9e-301) {
tmp = pow(pow((U * ((n * 2.0) * (t - fma(2.0, t_1, (t_3 * (n * (U - U_42_))))))), 0.25), 2.0);
} else {
tmp = sqrt((n * 2.0)) * sqrt((U * (t - fma(2.0, t_1, ((U - U_42_) * (n * t_3))))));
}
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(Float64(l * l) / Om)
t_3 = Float64(l / Om) ^ 2.0
tmp = 0.0
if (n <= -3.4e+47)
tmp = sqrt(Float64(Float64(n * 2.0) * Float64(U * Float64(t + Float64(Float64(Float64(l / Float64(Om / l)) * -2.0) + Float64(n * Float64(Float64(t_2 * Float64(U_42_ / Om)) - Float64(t_2 * Float64(U / Om)))))))));
elseif (n <= 1.9e-301)
tmp = (Float64(U * Float64(Float64(n * 2.0) * Float64(t - fma(2.0, t_1, Float64(t_3 * Float64(n * Float64(U - U_42_))))))) ^ 0.25) ^ 2.0;
else
tmp = Float64(sqrt(Float64(n * 2.0)) * sqrt(Float64(U * Float64(t - fma(2.0, t_1, Float64(Float64(U - U_42_) * Float64(n * t_3)))))));
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[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]}, Block[{t$95$3 = N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision]}, If[LessEqual[n, -3.4e+47], N[Sqrt[N[(N[(n * 2.0), $MachinePrecision] * N[(U * N[(t + N[(N[(N[(l / N[(Om / l), $MachinePrecision]), $MachinePrecision] * -2.0), $MachinePrecision] + N[(n * N[(N[(t$95$2 * N[(U$42$ / Om), $MachinePrecision]), $MachinePrecision] - N[(t$95$2 * N[(U / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[n, 1.9e-301], N[Power[N[Power[N[(U * N[(N[(n * 2.0), $MachinePrecision] * N[(t - N[(2.0 * t$95$1 + N[(t$95$3 * N[(n * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.25], $MachinePrecision], 2.0], $MachinePrecision], N[(N[Sqrt[N[(n * 2.0), $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(U * N[(t - N[(2.0 * t$95$1 + N[(N[(U - U$42$), $MachinePrecision] * N[(n * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]]]]]