通过matlab实现topsis算法

TOPSIS算法程序，包括矩阵列的正向化（将极小型和中间型化为极大型）、矩阵的归一化处理（消除量纲）、最后计算各个元素对应得得分。

代码如下：

clc;clear
a = input(\'\');
[m,n] = size(a);
while true
    typ = input(\'请输入列指标类型 极小型 or 中间型 or 无\',\'s\');
    if typ == \'极小型\'
        index = input(\'请输入所需正向化列数列表：\');
        for r = 1:length(index)
            ma = max(a(:,index(r)));
            for i = 1:m
                a(i,index(r)) =  ma - a(i,index(r));
            end
        end
        continue
    elseif typ == \'中间型\'
        index = input(\'请输入需要正向化列数列表\');
        center = input(\'请输入正向化列数中间值列表\');
        zzz = [index,center];
        for i = 1:length(index)
            for r = 1:length(center)
                a(r,index(i)) = abs(a(r,index(i))-center(r));
            end
        end
        continue
    elseif typ == \'无\'
        break
    else
        disp(\'输入无效，请重新输入类型\')
        continue
    end
end
disp(\'正向化后矩阵：\')
a
for i = 1:n
    a(:,i) = a(:,i)./sqrt(sum(a(:,i).^2));
end
disp(\'归一化处理后矩阵：\')
a
a1 = max(a);
a2 = min(a);
C = [];
for i = 1:m
    dmax = oushijuli(a1,a(i,:));
    dmin = oushijuli(a2,a(i,:));
    k = dmin/(dmax + dmin);
    C = [C,k];
    sprintf(\'第%s个元素的指标：%s\',num2str(i),num2str(k))
end
[c,index]=sort(C,\'descend\')