double code(double x, double y, double z, double t, double a, double b, double c, double i) {
return ((((((((x * y) + z) * y) + 27464.7644705) * y) + 230661.510616) * y) + t) / (((((((y + a) * y) + b) * y) + c) * y) + i);
}
↓
double code(double x, double y, double z, double t, double a, double b, double c, double i) {
double t_1 = i + (y * (c + (y * (b + (y * (y + a))))));
double t_2 = t / t_1;
double tmp;
if (y <= -1.72e+71) {
tmp = (z / y) + (fma((1.0 + ((((a / y) * (a / y)) - (b / (y * y))) - (a / y))), x, (27464.7644705 / (y * y))) - (a * (z / (y * y))));
} else if (y <= 2.65e+56) {
tmp = t_2 + ((y * (230661.510616 + (y * (27464.7644705 + (y * (z + (y * x))))))) / t_1);
} else {
tmp = t_2 + (x + ((z / y) - (x / (y / a))));
}
return tmp;
}
function code(x, y, z, t, a, b, c, i)
return Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(Float64(x * y) + z) * y) + 27464.7644705) * y) + 230661.510616) * y) + t) / Float64(Float64(Float64(Float64(Float64(Float64(Float64(y + a) * y) + b) * y) + c) * y) + i))
end
↓
function code(x, y, z, t, a, b, c, i)
t_1 = Float64(i + Float64(y * Float64(c + Float64(y * Float64(b + Float64(y * Float64(y + a)))))))
t_2 = Float64(t / t_1)
tmp = 0.0
if (y <= -1.72e+71)
tmp = Float64(Float64(z / y) + Float64(fma(Float64(1.0 + Float64(Float64(Float64(Float64(a / y) * Float64(a / y)) - Float64(b / Float64(y * y))) - Float64(a / y))), x, Float64(27464.7644705 / Float64(y * y))) - Float64(a * Float64(z / Float64(y * y)))));
elseif (y <= 2.65e+56)
tmp = Float64(t_2 + Float64(Float64(y * Float64(230661.510616 + Float64(y * Float64(27464.7644705 + Float64(y * Float64(z + Float64(y * x))))))) / t_1));
else
tmp = Float64(t_2 + Float64(x + Float64(Float64(z / y) - Float64(x / Float64(y / a)))));
end
return tmp
end
code[x_, y_, z_, t_, a_, b_, c_, i_] := N[(N[(N[(N[(N[(N[(N[(N[(N[(x * y), $MachinePrecision] + z), $MachinePrecision] * y), $MachinePrecision] + 27464.7644705), $MachinePrecision] * y), $MachinePrecision] + 230661.510616), $MachinePrecision] * y), $MachinePrecision] + t), $MachinePrecision] / N[(N[(N[(N[(N[(N[(N[(y + a), $MachinePrecision] * y), $MachinePrecision] + b), $MachinePrecision] * y), $MachinePrecision] + c), $MachinePrecision] * y), $MachinePrecision] + i), $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_, z_, t_, a_, b_, c_, i_] := Block[{t$95$1 = N[(i + N[(y * N[(c + N[(y * N[(b + N[(y * N[(y + a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t / t$95$1), $MachinePrecision]}, If[LessEqual[y, -1.72e+71], N[(N[(z / y), $MachinePrecision] + N[(N[(N[(1.0 + N[(N[(N[(N[(a / y), $MachinePrecision] * N[(a / y), $MachinePrecision]), $MachinePrecision] - N[(b / N[(y * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(a / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * x + N[(27464.7644705 / N[(y * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - N[(a * N[(z / N[(y * y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 2.65e+56], N[(t$95$2 + N[(N[(y * N[(230661.510616 + N[(y * N[(27464.7644705 + N[(y * N[(z + N[(y * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]), $MachinePrecision], N[(t$95$2 + N[(x + N[(N[(z / y), $MachinePrecision] - N[(x / N[(y / a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]