double code(double x, double y, double z, double t, double a) {
return x + ((y - z) * ((t - x) / (a - z)));
}
↓
double code(double x, double y, double z, double t, double a) {
double t_1 = x + ((y - z) * ((t - x) / (a - z)));
double tmp_1;
if (t_1 <= -2e-306) {
double tmp_2;
if ((z - y) != 0.0) {
tmp_2 = (t - x) / ((z - a) / (y - z));
} else {
tmp_2 = ((z - y) / (a - z)) * (t - x);
}
tmp_1 = x - tmp_2;
} else if (t_1 <= 0.0) {
double tmp_3;
if (((y - a) * x) != 0.0) {
tmp_3 = -1.0 / ((z / x) / (a - y));
} else {
tmp_3 = ((y - a) / z) * x;
}
tmp_1 = tmp_3 + t;
} else {
tmp_1 = fma((x - t), ((y - z) / (z - a)), x);
}
return tmp_1;
}
function code(x, y, z, t, a)
return Float64(x + Float64(Float64(y - z) * Float64(Float64(t - x) / Float64(a - z))))
end
↓
function code(x, y, z, t, a)
t_1 = Float64(x + Float64(Float64(y - z) * Float64(Float64(t - x) / Float64(a - z))))
tmp_1 = 0.0
if (t_1 <= -2e-306)
tmp_2 = 0.0
if (Float64(z - y) != 0.0)
tmp_2 = Float64(Float64(t - x) / Float64(Float64(z - a) / Float64(y - z)));
else
tmp_2 = Float64(Float64(Float64(z - y) / Float64(a - z)) * Float64(t - x));
end
tmp_1 = Float64(x - tmp_2);
elseif (t_1 <= 0.0)
tmp_3 = 0.0
if (Float64(Float64(y - a) * x) != 0.0)
tmp_3 = Float64(-1.0 / Float64(Float64(z / x) / Float64(a - y)));
else
tmp_3 = Float64(Float64(Float64(y - a) / z) * x);
end
tmp_1 = Float64(tmp_3 + t);
else
tmp_1 = fma(Float64(x - t), Float64(Float64(y - z) / Float64(z - a)), x);
end
return tmp_1
end
code[x_, y_, z_, t_, a_] := N[(x + N[(N[(y - z), $MachinePrecision] * N[(N[(t - x), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_, z_, t_, a_] := Block[{t$95$1 = N[(x + N[(N[(y - z), $MachinePrecision] * N[(N[(t - x), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$1, -2e-306], N[(x - If[Unequal[N[(z - y), $MachinePrecision], 0.0], N[(N[(t - x), $MachinePrecision] / N[(N[(z - a), $MachinePrecision] / N[(y - z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(z - y), $MachinePrecision] / N[(a - z), $MachinePrecision]), $MachinePrecision] * N[(t - x), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision], If[LessEqual[t$95$1, 0.0], N[(If[Unequal[N[(N[(y - a), $MachinePrecision] * x), $MachinePrecision], 0.0], N[(-1.0 / N[(N[(z / x), $MachinePrecision] / N[(a - y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[(y - a), $MachinePrecision] / z), $MachinePrecision] * x), $MachinePrecision]] + t), $MachinePrecision], N[(N[(x - t), $MachinePrecision] * N[(N[(y - z), $MachinePrecision] / N[(z - a), $MachinePrecision]), $MachinePrecision] + x), $MachinePrecision]]]]