double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k) {
return (((((((x * 18.0) * y) * z) * t) - ((a * 4.0) * t)) + (b * c)) - ((x * 4.0) * i)) - ((j * 27.0) * k);
}
↓
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k) {
double t_1 = t * (a * -4.0);
double t_2 = k * (j * -27.0);
double t_3 = i * (x * -4.0);
double t_4 = ((((((x * 18.0) * y) * z) * t) + t_1) + (b * c)) + t_3;
double tmp;
if (t_4 <= -((double) INFINITY)) {
tmp = ((b * c) + ((x / (1.0 / fma((18.0 * y), (z * t), (i * -4.0)))) + (-4.0 * (t * a)))) + ((k * j) * -27.0);
} else if (t_4 <= 2e+287) {
tmp = t_4 + t_2;
} else {
tmp = (((b * c) + ((x * ((z * t) * (18.0 * y))) + t_1)) + t_3) + t_2;
}
return tmp;
}
function code(x, y, z, t, a, b, c, i, j, k)
return Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * 18.0) * y) * z) * t) - Float64(Float64(a * 4.0) * t)) + Float64(b * c)) - Float64(Float64(x * 4.0) * i)) - Float64(Float64(j * 27.0) * k))
end
↓
function code(x, y, z, t, a, b, c, i, j, k)
t_1 = Float64(t * Float64(a * -4.0))
t_2 = Float64(k * Float64(j * -27.0))
t_3 = Float64(i * Float64(x * -4.0))
t_4 = Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * 18.0) * y) * z) * t) + t_1) + Float64(b * c)) + t_3)
tmp = 0.0
if (t_4 <= Float64(-Inf))
tmp = Float64(Float64(Float64(b * c) + Float64(Float64(x / Float64(1.0 / fma(Float64(18.0 * y), Float64(z * t), Float64(i * -4.0)))) + Float64(-4.0 * Float64(t * a)))) + Float64(Float64(k * j) * -27.0));
elseif (t_4 <= 2e+287)
tmp = Float64(t_4 + t_2);
else
tmp = Float64(Float64(Float64(Float64(b * c) + Float64(Float64(x * Float64(Float64(z * t) * Float64(18.0 * y))) + t_1)) + t_3) + t_2);
end
return tmp
end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_] := N[(N[(N[(N[(N[(N[(N[(N[(x * 18.0), $MachinePrecision] * y), $MachinePrecision] * z), $MachinePrecision] * t), $MachinePrecision] - N[(N[(a * 4.0), $MachinePrecision] * t), $MachinePrecision]), $MachinePrecision] + N[(b * c), $MachinePrecision]), $MachinePrecision] - N[(N[(x * 4.0), $MachinePrecision] * i), $MachinePrecision]), $MachinePrecision] - N[(N[(j * 27.0), $MachinePrecision] * k), $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_, z_, t_, a_, b_, c_, i_, j_, k_] := Block[{t$95$1 = N[(t * N[(a * -4.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(k * N[(j * -27.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(i * N[(x * -4.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(N[(N[(N[(N[(x * 18.0), $MachinePrecision] * y), $MachinePrecision] * z), $MachinePrecision] * t), $MachinePrecision] + t$95$1), $MachinePrecision] + N[(b * c), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision]}, If[LessEqual[t$95$4, (-Infinity)], N[(N[(N[(b * c), $MachinePrecision] + N[(N[(x / N[(1.0 / N[(N[(18.0 * y), $MachinePrecision] * N[(z * t), $MachinePrecision] + N[(i * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-4.0 * N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(k * j), $MachinePrecision] * -27.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[t$95$4, 2e+287], N[(t$95$4 + t$95$2), $MachinePrecision], N[(N[(N[(N[(b * c), $MachinePrecision] + N[(N[(x * N[(N[(z * t), $MachinePrecision] * N[(18.0 * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision] + t$95$2), $MachinePrecision]]]]]]]