double code(double a, double b, double c) {
double tmp;
if (b >= 0.0) {
tmp = (2.0 * c) / (-b - sqrt(((b * b) - ((4.0 * a) * c))));
} else {
tmp = (-b + sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
}
return tmp;
}
↓
double code(double a, double b, double c) {
double t_0 = c * (a * -4.0);
double t_1 = sqrt(((b * b) + t_0));
double t_2 = (2.0 * c) / (-b - t_1);
double tmp;
if (b >= 0.0) {
tmp = t_2;
} else {
tmp = (sqrt(((b * b) + (a * (c * -4.0)))) - b) / (2.0 * a);
}
double t_3 = tmp;
double tmp_1;
if (b >= 0.0) {
tmp_1 = t_2;
} else {
tmp_1 = (t_1 - b) / (2.0 * a);
}
double t_4 = tmp_1;
double t_5 = -((b + b) / (2.0 * a));
double t_6 = (2.0 * c) / (-b - fma(-2.0, (c / (b / a)), b));
double tmp_3;
if (t_4 <= -((double) INFINITY)) {
double tmp_4;
if (b >= 0.0) {
tmp_4 = b / a;
} else {
tmp_4 = t_5;
}
tmp_3 = tmp_4;
} else if (t_4 <= -4e-227) {
tmp_3 = t_3;
} else if (t_4 <= 0.0) {
double tmp_5;
if (b >= 0.0) {
tmp_5 = t_6;
} else {
tmp_5 = ((fma(b, b, (b * b)) + (4.0 * (c * a))) / (b - hypot(b, sqrt(t_0)))) / (2.0 * a);
}
tmp_3 = tmp_5;
} else if (t_4 <= 2e+276) {
tmp_3 = t_3;
} else if (b >= 0.0) {
tmp_3 = t_6;
} else {
tmp_3 = t_5;
}
return tmp_3;
}
function code(a, b, c)
tmp = 0.0
if (b >= 0.0)
tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) - sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))));
else
tmp = Float64(Float64(Float64(-b) + sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))) / Float64(2.0 * a));
end
return tmp
end
↓
function code(a, b, c)
t_0 = Float64(c * Float64(a * -4.0))
t_1 = sqrt(Float64(Float64(b * b) + t_0))
t_2 = Float64(Float64(2.0 * c) / Float64(Float64(-b) - t_1))
tmp = 0.0
if (b >= 0.0)
tmp = t_2;
else
tmp = Float64(Float64(sqrt(Float64(Float64(b * b) + Float64(a * Float64(c * -4.0)))) - b) / Float64(2.0 * a));
end
t_3 = tmp
tmp_1 = 0.0
if (b >= 0.0)
tmp_1 = t_2;
else
tmp_1 = Float64(Float64(t_1 - b) / Float64(2.0 * a));
end
t_4 = tmp_1
t_5 = Float64(-Float64(Float64(b + b) / Float64(2.0 * a)))
t_6 = Float64(Float64(2.0 * c) / Float64(Float64(-b) - fma(-2.0, Float64(c / Float64(b / a)), b)))
tmp_3 = 0.0
if (t_4 <= Float64(-Inf))
tmp_4 = 0.0
if (b >= 0.0)
tmp_4 = Float64(b / a);
else
tmp_4 = t_5;
end
tmp_3 = tmp_4;
elseif (t_4 <= -4e-227)
tmp_3 = t_3;
elseif (t_4 <= 0.0)
tmp_5 = 0.0
if (b >= 0.0)
tmp_5 = t_6;
else
tmp_5 = Float64(Float64(Float64(fma(b, b, Float64(b * b)) + Float64(4.0 * Float64(c * a))) / Float64(b - hypot(b, sqrt(t_0)))) / Float64(2.0 * a));
end
tmp_3 = tmp_5;
elseif (t_4 <= 2e+276)
tmp_3 = t_3;
elseif (b >= 0.0)
tmp_3 = t_6;
else
tmp_3 = t_5;
end
return tmp_3
end
code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[((-b) + N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]
↓
code[a_, b_, c_] := Block[{t$95$0 = N[(c * N[(a * -4.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(N[(b * b), $MachinePrecision] + t$95$0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - t$95$1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = If[GreaterEqual[b, 0.0], t$95$2, N[(N[(N[Sqrt[N[(N[(b * b), $MachinePrecision] + N[(a * N[(c * -4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$4 = If[GreaterEqual[b, 0.0], t$95$2, N[(N[(t$95$1 - b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$5 = (-N[(N[(b + b), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision])}, Block[{t$95$6 = N[(N[(2.0 * c), $MachinePrecision] / N[((-b) - N[(-2.0 * N[(c / N[(b / a), $MachinePrecision]), $MachinePrecision] + b), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$4, (-Infinity)], If[GreaterEqual[b, 0.0], N[(b / a), $MachinePrecision], t$95$5], If[LessEqual[t$95$4, -4e-227], t$95$3, If[LessEqual[t$95$4, 0.0], If[GreaterEqual[b, 0.0], t$95$6, N[(N[(N[(N[(b * b + N[(b * b), $MachinePrecision]), $MachinePrecision] + N[(4.0 * N[(c * a), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(b - N[Sqrt[b ^ 2 + N[Sqrt[t$95$0], $MachinePrecision] ^ 2], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]], If[LessEqual[t$95$4, 2e+276], t$95$3, If[GreaterEqual[b, 0.0], t$95$6, t$95$5]]]]]]]]]]]]