unitize.m

来自「网络分析法（ANP）的一个实现」· M 代码 · 共 27 行

% 矩阵归一化(单位化)
% version 1.0

% Unitize 函数开始

function matrix_unitize = Unitize(Matrix)

[lineCount,columeCount] = size(Matrix);
for j = 1:1:columeCount
    fa = 0;
    for i = 1:1:lineCount
        fa = fa + Matrix(i,j);
    end
%     if fa == 0
%         fa = 1;
%     end
    sum(j) = fa;
end

for j = 1:1:columeCount
    for i = 1:1:lineCount
        matrix_unitize(i,j) = Matrix(i,j) / sum(j);
    end
end

% Unitize 函数结束