fact.m

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

function y = fact(x);

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