clc, clear
a=xlsread('D: \中药指标重要性序列','Sheet1','B4:O8')
d=zeros(size(a,2),size(a,2));
for s=1:size(a,1)
b=a(s,:)
c=a(s,:)
e=d;
for i=1:size(a,2)
for j=1:size(a,2)
if b(j)/c(i)<=1
d(i,j)=0;
else
d(i,j)=1;
end
end
end
d
d=d+e;
end
d
A=zeros(size(d,2),1);
for i=1:size(d,2)
A(i)=sum(d(i,:));
end
A
m=max(A)
n=min(A)
d0=(m-n)/0.9
w=(A-n)/d0+0.1
S=sum(w)
W=w/S
WE=W'
xlswrite('D:\ czh_delphy 结构矩阵.xls',d)
xlswrite('D:\czh_delphy 权重.xls',WE)
评论1