double code(double x, double y, double z, double t, double a) {
return ((x * y) * z) / sqrt(((z * z) - (t * a)));
}
↓
double code(double x, double y, double z, double t, double a) {
double t_1 = (z * z) - (t * a);
double t_2 = x * (y * (z * (pow(-t, -0.5) * pow(a, -0.5))));
double tmp;
if (z <= -9.593372636256208e+112) {
tmp = y * -x;
} else if (z <= -1e-150) {
tmp = x * (y * (z * pow(t_1, -0.5)));
} else if (z <= 2.8e-248) {
tmp = t_2;
} else if (z <= 1e-100) {
tmp = x * pow(cbrt((z * (y / hypot(z, sqrt((t * -a)))))), 3.0);
} else if (z <= 1e-71) {
tmp = t_2;
} else if (z <= 8.5e+40) {
tmp = x * ((z * y) / sqrt(t_1));
} else {
tmp = (z / fma(-0.5, (t * (a / z)), z)) * (y * x);
}
return tmp;
}
function code(x, y, z, t, a)
return Float64(Float64(Float64(x * y) * z) / sqrt(Float64(Float64(z * z) - Float64(t * a))))
end
↓
function code(x, y, z, t, a)
t_1 = Float64(Float64(z * z) - Float64(t * a))
t_2 = Float64(x * Float64(y * Float64(z * Float64((Float64(-t) ^ -0.5) * (a ^ -0.5)))))
tmp = 0.0
if (z <= -9.593372636256208e+112)
tmp = Float64(y * Float64(-x));
elseif (z <= -1e-150)
tmp = Float64(x * Float64(y * Float64(z * (t_1 ^ -0.5))));
elseif (z <= 2.8e-248)
tmp = t_2;
elseif (z <= 1e-100)
tmp = Float64(x * (cbrt(Float64(z * Float64(y / hypot(z, sqrt(Float64(t * Float64(-a))))))) ^ 3.0));
elseif (z <= 1e-71)
tmp = t_2;
elseif (z <= 8.5e+40)
tmp = Float64(x * Float64(Float64(z * y) / sqrt(t_1)));
else
tmp = Float64(Float64(z / fma(-0.5, Float64(t * Float64(a / z)), z)) * Float64(y * x));
end
return tmp
end
code[x_, y_, z_, t_, a_] := N[(N[(N[(x * y), $MachinePrecision] * z), $MachinePrecision] / N[Sqrt[N[(N[(z * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(N[(z * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(x * N[(y * N[(z * N[(N[Power[(-t), -0.5], $MachinePrecision] * N[Power[a, -0.5], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[z, -9.593372636256208e+112], N[(y * (-x)), $MachinePrecision], If[LessEqual[z, -1e-150], N[(x * N[(y * N[(z * N[Power[t$95$1, -0.5], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 2.8e-248], t$95$2, If[LessEqual[z, 1e-100], N[(x * N[Power[N[Power[N[(z * N[(y / N[Sqrt[z ^ 2 + N[Sqrt[N[(t * (-a)), $MachinePrecision]], $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision], If[LessEqual[z, 1e-71], t$95$2, If[LessEqual[z, 8.5e+40], N[(x * N[(N[(z * y), $MachinePrecision] / N[Sqrt[t$95$1], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(z / N[(-0.5 * N[(t * N[(a / z), $MachinePrecision]), $MachinePrecision] + z), $MachinePrecision]), $MachinePrecision] * N[(y * x), $MachinePrecision]), $MachinePrecision]]]]]]]]]