double code(double x, double y, double z, double t, double a, double b, double c) {
return x / (x + (y * exp((2.0 * (((z * sqrt((t + a))) / t) - ((b - c) * ((a + (5.0 / 6.0)) - (2.0 / (t * 3.0)))))))));
}
↓
double code(double x, double y, double z, double t, double a, double b, double c) {
double t_1 = sqrt((t + a));
double tmp;
if (t <= -225000.0) {
tmp = x / (x + (y * pow(exp(2.0), ((z / (t / t_1)) + (((a + 0.8333333333333334) + (-2.0 / (t * 3.0))) * (c - b))))));
} else if (t <= -1.02e-280) {
tmp = x / (x + (y * exp((2.0 * (((z * sqrt(a)) + ((b - c) * 0.6666666666666666)) / t)))));
} else {
tmp = x / fma(y, pow(exp(2.0), fma((b - c), ((-0.8333333333333334 - a) - (-0.6666666666666666 / t)), (z * (t_1 / t)))), x);
}
return tmp;
}
function code(x, y, z, t, a, b, c)
return Float64(x / Float64(x + Float64(y * exp(Float64(2.0 * Float64(Float64(Float64(z * sqrt(Float64(t + a))) / t) - Float64(Float64(b - c) * Float64(Float64(a + Float64(5.0 / 6.0)) - Float64(2.0 / Float64(t * 3.0))))))))))
end
↓
function code(x, y, z, t, a, b, c)
t_1 = sqrt(Float64(t + a))
tmp = 0.0
if (t <= -225000.0)
tmp = Float64(x / Float64(x + Float64(y * (exp(2.0) ^ Float64(Float64(z / Float64(t / t_1)) + Float64(Float64(Float64(a + 0.8333333333333334) + Float64(-2.0 / Float64(t * 3.0))) * Float64(c - b)))))));
elseif (t <= -1.02e-280)
tmp = Float64(x / Float64(x + Float64(y * exp(Float64(2.0 * Float64(Float64(Float64(z * sqrt(a)) + Float64(Float64(b - c) * 0.6666666666666666)) / t))))));
else
tmp = Float64(x / fma(y, (exp(2.0) ^ fma(Float64(b - c), Float64(Float64(-0.8333333333333334 - a) - Float64(-0.6666666666666666 / t)), Float64(z * Float64(t_1 / t)))), x));
end
return tmp
end
code[x_, y_, z_, t_, a_, b_, c_] := N[(x / N[(x + N[(y * N[Exp[N[(2.0 * N[(N[(N[(z * N[Sqrt[N[(t + a), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision] - N[(N[(b - c), $MachinePrecision] * N[(N[(a + N[(5.0 / 6.0), $MachinePrecision]), $MachinePrecision] - N[(2.0 / N[(t * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_, z_, t_, a_, b_, c_] := Block[{t$95$1 = N[Sqrt[N[(t + a), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[t, -225000.0], N[(x / N[(x + N[(y * N[Power[N[Exp[2.0], $MachinePrecision], N[(N[(z / N[(t / t$95$1), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(a + 0.8333333333333334), $MachinePrecision] + N[(-2.0 / N[(t * 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(c - b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[t, -1.02e-280], N[(x / N[(x + N[(y * N[Exp[N[(2.0 * N[(N[(N[(z * N[Sqrt[a], $MachinePrecision]), $MachinePrecision] + N[(N[(b - c), $MachinePrecision] * 0.6666666666666666), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(x / N[(y * N[Power[N[Exp[2.0], $MachinePrecision], N[(N[(b - c), $MachinePrecision] * N[(N[(-0.8333333333333334 - a), $MachinePrecision] - N[(-0.6666666666666666 / t), $MachinePrecision]), $MachinePrecision] + N[(z * N[(t$95$1 / t), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] + x), $MachinePrecision]), $MachinePrecision]]]]