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 = sqrt((n * 2.0)) * sqrt((U * (t - fma(2.0, (l * (l / Om)), (n * (pow((l / Om), 2.0) * (U - U_42_)))))));
double t_2 = (l / Om) * (U * (n * 2.0));
double t_3 = (n * U) * (2.0 * t);
double tmp;
if (n <= -1e-37) {
tmp = sqrt(((fma(n, ((U_42_ - U) * (l / Om)), (l * -2.0)) * t_2) + t_3));
} else if (n <= 4.4e-251) {
tmp = pow(fma(n, (t * (U * 2.0)), ((-2.0 - ((n / Om) * (U - U_42_))) * (l * ((n * 2.0) * (U / (Om / l)))))), 0.5);
} else if (n <= 2e-223) {
tmp = t_1;
} else if (n <= 7e-172) {
tmp = sqrt((t_3 + ((l * (-2.0 + ((n * (U_42_ - U)) / Om))) * (2.0 * ((n * (U * l)) / Om)))));
} else if (n <= 1.1e-102) {
tmp = t_1;
} else if (n <= 1e+45) {
tmp = sqrt((t_3 + (t_2 * (l * (-2.0 + ((n * U_42_) / Om))))));
} else {
tmp = t_1;
}
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(sqrt(Float64(n * 2.0)) * sqrt(Float64(U * Float64(t - fma(2.0, Float64(l * Float64(l / Om)), Float64(n * Float64((Float64(l / Om) ^ 2.0) * Float64(U - U_42_))))))))
t_2 = Float64(Float64(l / Om) * Float64(U * Float64(n * 2.0)))
t_3 = Float64(Float64(n * U) * Float64(2.0 * t))
tmp = 0.0
if (n <= -1e-37)
tmp = sqrt(Float64(Float64(fma(n, Float64(Float64(U_42_ - U) * Float64(l / Om)), Float64(l * -2.0)) * t_2) + t_3));
elseif (n <= 4.4e-251)
tmp = fma(n, Float64(t * Float64(U * 2.0)), Float64(Float64(-2.0 - Float64(Float64(n / Om) * Float64(U - U_42_))) * Float64(l * Float64(Float64(n * 2.0) * Float64(U / Float64(Om / l)))))) ^ 0.5;
elseif (n <= 2e-223)
tmp = t_1;
elseif (n <= 7e-172)
tmp = sqrt(Float64(t_3 + Float64(Float64(l * Float64(-2.0 + Float64(Float64(n * Float64(U_42_ - U)) / Om))) * Float64(2.0 * Float64(Float64(n * Float64(U * l)) / Om)))));
elseif (n <= 1.1e-102)
tmp = t_1;
elseif (n <= 1e+45)
tmp = sqrt(Float64(t_3 + Float64(t_2 * Float64(l * Float64(-2.0 + Float64(Float64(n * U_42_) / Om))))));
else
tmp = t_1;
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[(N[Sqrt[N[(n * 2.0), $MachinePrecision]], $MachinePrecision] * N[Sqrt[N[(U * N[(t - N[(2.0 * N[(l * N[(l / Om), $MachinePrecision]), $MachinePrecision] + N[(n * N[(N[Power[N[(l / Om), $MachinePrecision], 2.0], $MachinePrecision] * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(l / Om), $MachinePrecision] * N[(U * N[(n * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[(n * U), $MachinePrecision] * N[(2.0 * t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[n, -1e-37], N[Sqrt[N[(N[(N[(n * N[(N[(U$42$ - U), $MachinePrecision] * N[(l / Om), $MachinePrecision]), $MachinePrecision] + N[(l * -2.0), $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision] + t$95$3), $MachinePrecision]], $MachinePrecision], If[LessEqual[n, 4.4e-251], N[Power[N[(n * N[(t * N[(U * 2.0), $MachinePrecision]), $MachinePrecision] + N[(N[(-2.0 - N[(N[(n / Om), $MachinePrecision] * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(l * N[(N[(n * 2.0), $MachinePrecision] * N[(U / N[(Om / l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.5], $MachinePrecision], If[LessEqual[n, 2e-223], t$95$1, If[LessEqual[n, 7e-172], N[Sqrt[N[(t$95$3 + N[(N[(l * N[(-2.0 + N[(N[(n * N[(U$42$ - U), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 * N[(N[(n * N[(U * l), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[n, 1.1e-102], t$95$1, If[LessEqual[n, 1e+45], N[Sqrt[N[(t$95$3 + N[(t$95$2 * N[(l * N[(-2.0 + N[(N[(n * U$42$), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], t$95$1]]]]]]]]]