test_fact.m

来自「Three dimensional hydrogen atom spherica」· M 代码 · 共 10 行

x = [-3 0 5]

fact(x)

y = zeros(size(x));
for j = 1 : length(x)
    y(j) = prod(1 : x(j));
end
y(find(x < 0)) = inf;
y