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 + ((l / Om) * fma(l, -2.0, (n / ((Om / l) / U_42_)))))));
double t_2 = (n * U) * (2.0 * t);
double tmp;
if (n <= 3.8e-298) {
tmp = sqrt((t_2 + (((l / Om) * (U * (n * -2.0))) * ((n * ((l / Om) * (U - U_42_))) + (2.0 * l)))));
} else if (n <= 2.22e-249) {
tmp = t_1;
} else if (n <= 1.1e-172) {
tmp = sqrt((t_2 + (((l / Om) * (U * (n * 2.0))) * (l * (-2.0 + ((U_42_ - U) * (n / Om)))))));
} else if (n <= 2e-125) {
tmp = t_1;
} else if (n <= 4e+48) {
tmp = sqrt((2.0 * fma(n, (U * t), (n / ((Om / (U * l)) / ((l * -2.0) - ((n / Om) * (U * l))))))));
} 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 + Float64(Float64(l / Om) * fma(l, -2.0, Float64(n / Float64(Float64(Om / l) / U_42_))))))))
t_2 = Float64(Float64(n * U) * Float64(2.0 * t))
tmp = 0.0
if (n <= 3.8e-298)
tmp = sqrt(Float64(t_2 + Float64(Float64(Float64(l / Om) * Float64(U * Float64(n * -2.0))) * Float64(Float64(n * Float64(Float64(l / Om) * Float64(U - U_42_))) + Float64(2.0 * l)))));
elseif (n <= 2.22e-249)
tmp = t_1;
elseif (n <= 1.1e-172)
tmp = sqrt(Float64(t_2 + Float64(Float64(Float64(l / Om) * Float64(U * Float64(n * 2.0))) * Float64(l * Float64(-2.0 + Float64(Float64(U_42_ - U) * Float64(n / Om)))))));
elseif (n <= 2e-125)
tmp = t_1;
elseif (n <= 4e+48)
tmp = sqrt(Float64(2.0 * fma(n, Float64(U * t), Float64(n / Float64(Float64(Om / Float64(U * l)) / Float64(Float64(l * -2.0) - Float64(Float64(n / Om) * Float64(U * l))))))));
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[(N[(l / Om), $MachinePrecision] * N[(l * -2.0 + N[(n / N[(N[(Om / l), $MachinePrecision] / U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(n * U), $MachinePrecision] * N[(2.0 * t), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[n, 3.8e-298], N[Sqrt[N[(t$95$2 + N[(N[(N[(l / Om), $MachinePrecision] * N[(U * N[(n * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(n * N[(N[(l / Om), $MachinePrecision] * N[(U - U$42$), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(2.0 * l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[n, 2.22e-249], t$95$1, If[LessEqual[n, 1.1e-172], N[Sqrt[N[(t$95$2 + N[(N[(N[(l / Om), $MachinePrecision] * N[(U * N[(n * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(l * N[(-2.0 + N[(N[(U$42$ - U), $MachinePrecision] * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[n, 2e-125], t$95$1, If[LessEqual[n, 4e+48], N[Sqrt[N[(2.0 * N[(n * N[(U * t), $MachinePrecision] + N[(n / N[(N[(Om / N[(U * l), $MachinePrecision]), $MachinePrecision] / N[(N[(l * -2.0), $MachinePrecision] - N[(N[(n / Om), $MachinePrecision] * N[(U * l), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], t$95$1]]]]]]]