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')