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 = ((n * (l * U_42_)) / Om) + (l * -2.0);
double tmp;
if (l <= -1.45e+191) {
tmp = sqrt((n * (U * (((n * (U_42_ - U)) / pow(Om, 2.0)) + (2.0 * (-1.0 / Om)))))) * (l * -sqrt(2.0));
} else if (l <= -2.9e+75) {
tmp = pow(((2.0 * n) * (U * (t - fma(2.0, (l * (l / Om)), (n * (pow((l / Om), 2.0) * (U - U_42_))))))), 0.5);
} else if (l <= -6100.0) {
tmp = sqrt(((U * (2.0 * n)) * (((U_42_ - U) * ((l / (Om / l)) * (n / Om))) - ((2.0 * ((l * l) / Om)) - t))));
} else if (l <= -3.3e-142) {
tmp = sqrt((2.0 * (n * (U * (t + ((l * t_1) / Om))))));
} else if (l <= 1.55e-201) {
tmp = sqrt(((2.0 * (t * (n * U))) - (fma(l, -2.0, (n * ((U_42_ - U) * (l / Om)))) * ((l / Om) * (n * (U * -2.0))))));
} else if (l <= 6e+69) {
tmp = sqrt(((2.0 * (n * (U * t))) + (2.0 * ((n * (l * (U * t_1))) / Om))));
} else {
tmp = pow(sqrt(((l * sqrt(2.0)) * sqrt(((n / Om) * (U * fma((n / Om), (U_42_ - U), -2.0)))))), 2.0);
}
return tmp;
}
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[(N[(n * N[(l * U$42$), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision] + N[(l * -2.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[l, -1.45e+191], N[(N[Sqrt[N[(n * N[(U * N[(N[(N[(n * N[(U$42$ - U), $MachinePrecision]), $MachinePrecision] / N[Power[Om, 2.0], $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[(-1.0 / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(l * (-N[Sqrt[2.0], $MachinePrecision])), $MachinePrecision]), $MachinePrecision], If[LessEqual[l, -2.9e+75], N[Power[N[(N[(2.0 * n), $MachinePrecision] * 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], 0.5], $MachinePrecision], If[LessEqual[l, -6100.0], N[Sqrt[N[(N[(U * N[(2.0 * n), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(U$42$ - U), $MachinePrecision] * N[(N[(l / N[(Om / l), $MachinePrecision]), $MachinePrecision] * N[(n / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(2.0 * N[(N[(l * l), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision] - t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, -3.3e-142], N[Sqrt[N[(2.0 * N[(n * N[(U * N[(t + N[(N[(l * t$95$1), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 1.55e-201], N[Sqrt[N[(N[(2.0 * N[(t * N[(n * U), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(N[(l * -2.0 + N[(n * N[(N[(U$42$ - U), $MachinePrecision] * N[(l / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(l / Om), $MachinePrecision] * N[(n * N[(U * -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], If[LessEqual[l, 6e+69], N[Sqrt[N[(N[(2.0 * N[(n * N[(U * t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(2.0 * N[(N[(n * N[(l * N[(U * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / Om), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision], N[Power[N[Sqrt[N[(N[(l * N[Sqrt[2.0], $MachinePrecision]), $MachinePrecision] * N[Sqrt[N[(N[(n / Om), $MachinePrecision] * N[(U * N[(N[(n / Om), $MachinePrecision] * N[(U$42$ - U), $MachinePrecision] + -2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], $MachinePrecision], 2.0], $MachinePrecision]]]]]]]]