double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
return ((x * ((y * z) - (t * a))) - (b * ((c * z) - (t * i)))) + (j * ((c * a) - (y * i)));
}
↓
double code(double x, double y, double z, double t, double a, double b, double c, double i, double j) {
double t_1 = y * (x * z);
double t_2 = b * ((t * i) - (z * c));
double t_3 = c * (j * a);
double t_4 = ((t_1 - (y * (j * i))) - (a * ((x * t) - (j * c)))) + t_2;
double t_5 = t_3 + t_1;
double t_6 = x * ((y * z) - (t * a));
double t_7 = (t_6 + t_2) + (j * ((a * c) - (y * i)));
double t_8 = c * (z * b);
double t_9 = ((t_3 + t_6) + (i * ((t * b) - (j * y)))) - t_8;
double tmp;
if (j <= -1e+55) {
tmp = t_7;
} else if (j <= -2.6279803340645422e-36) {
tmp = t_9;
} else if (j <= -1.101870954746464e-77) {
tmp = t_4;
} else if (j <= -7.159722862350514e-214) {
tmp = (t_5 - fma(((x * a) - (b * i)), t, (t * fma(b, -i, (b * i))))) - t_8;
} else if (j <= -5.4762220906782254e-245) {
tmp = t_7;
} else if (j <= 2.6364117820735222e-294) {
tmp = (t_5 + (t * ((b * i) - (x * a)))) - t_8;
} else if (j <= 2.1942984161161427e-240) {
tmp = t_9;
} else if (j <= 1e+19) {
tmp = t_4;
} else {
tmp = t_7;
}
return tmp;
}
function code(x, y, z, t, a, b, c, i, j)
return Float64(Float64(Float64(x * Float64(Float64(y * z) - Float64(t * a))) - Float64(b * Float64(Float64(c * z) - Float64(t * i)))) + Float64(j * Float64(Float64(c * a) - Float64(y * i))))
end
↓
function code(x, y, z, t, a, b, c, i, j)
t_1 = Float64(y * Float64(x * z))
t_2 = Float64(b * Float64(Float64(t * i) - Float64(z * c)))
t_3 = Float64(c * Float64(j * a))
t_4 = Float64(Float64(Float64(t_1 - Float64(y * Float64(j * i))) - Float64(a * Float64(Float64(x * t) - Float64(j * c)))) + t_2)
t_5 = Float64(t_3 + t_1)
t_6 = Float64(x * Float64(Float64(y * z) - Float64(t * a)))
t_7 = Float64(Float64(t_6 + t_2) + Float64(j * Float64(Float64(a * c) - Float64(y * i))))
t_8 = Float64(c * Float64(z * b))
t_9 = Float64(Float64(Float64(t_3 + t_6) + Float64(i * Float64(Float64(t * b) - Float64(j * y)))) - t_8)
tmp = 0.0
if (j <= -1e+55)
tmp = t_7;
elseif (j <= -2.6279803340645422e-36)
tmp = t_9;
elseif (j <= -1.101870954746464e-77)
tmp = t_4;
elseif (j <= -7.159722862350514e-214)
tmp = Float64(Float64(t_5 - fma(Float64(Float64(x * a) - Float64(b * i)), t, Float64(t * fma(b, Float64(-i), Float64(b * i))))) - t_8);
elseif (j <= -5.4762220906782254e-245)
tmp = t_7;
elseif (j <= 2.6364117820735222e-294)
tmp = Float64(Float64(t_5 + Float64(t * Float64(Float64(b * i) - Float64(x * a)))) - t_8);
elseif (j <= 2.1942984161161427e-240)
tmp = t_9;
elseif (j <= 1e+19)
tmp = t_4;
else
tmp = t_7;
end
return tmp
end
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := N[(N[(N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(b * N[(N[(c * z), $MachinePrecision] - N[(t * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(j * N[(N[(c * a), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_, z_, t_, a_, b_, c_, i_, j_] := Block[{t$95$1 = N[(y * N[(x * z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(b * N[(N[(t * i), $MachinePrecision] - N[(z * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(c * N[(j * a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[(N[(t$95$1 - N[(y * N[(j * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(a * N[(N[(x * t), $MachinePrecision] - N[(j * c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]}, Block[{t$95$5 = N[(t$95$3 + t$95$1), $MachinePrecision]}, Block[{t$95$6 = N[(x * N[(N[(y * z), $MachinePrecision] - N[(t * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(N[(t$95$6 + t$95$2), $MachinePrecision] + N[(j * N[(N[(a * c), $MachinePrecision] - N[(y * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$8 = N[(c * N[(z * b), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(N[(N[(t$95$3 + t$95$6), $MachinePrecision] + N[(i * N[(N[(t * b), $MachinePrecision] - N[(j * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - t$95$8), $MachinePrecision]}, If[LessEqual[j, -1e+55], t$95$7, If[LessEqual[j, -2.6279803340645422e-36], t$95$9, If[LessEqual[j, -1.101870954746464e-77], t$95$4, If[LessEqual[j, -7.159722862350514e-214], N[(N[(t$95$5 - N[(N[(N[(x * a), $MachinePrecision] - N[(b * i), $MachinePrecision]), $MachinePrecision] * t + N[(t * N[(b * (-i) + N[(b * i), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - t$95$8), $MachinePrecision], If[LessEqual[j, -5.4762220906782254e-245], t$95$7, If[LessEqual[j, 2.6364117820735222e-294], N[(N[(t$95$5 + N[(t * N[(N[(b * i), $MachinePrecision] - N[(x * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - t$95$8), $MachinePrecision], If[LessEqual[j, 2.1942984161161427e-240], t$95$9, If[LessEqual[j, 1e+19], t$95$4, t$95$7]]]]]]]]]]]]]]]]]