ahpvector.m

阿瑟玩儿玩儿温热温热我认为而我热热特特让他人味儿我说的撒发生地方的是发生地方反思

function [r,c]=ahpvector(x)
%AHPVECTOR    Calculate the AHP ranking or weighting vector from an ...
%             AHP reciproal matrix.
%
%   R = AHPVECTOR(X) is the ordered AHP ranking based on the AHP matrix X.
%
%   [R,C] = AHPVECTOR(X) returns the ordered AHP ranking R 
%      and the consistency ratio C.
%      Note that C < 0.1 is considered heuristically acceptable.
sztemp=size(x);
n=sztemp(1);
[v,d]=eig(x);
i=1;
while d(i,i)<n-0.00001
  i=i+1;
end
myeig=d(i,i);
myvec=v(:,i);
r=myvec/sum(myvec);
ci=(myeig-n)/(n-1); 
randomci=[1 1 0.52 0.89 1.11 1.25 1.35 1.4 1.45 1.49 1.51];
if n>11
  rci=1.5;
else
  rci=randomci(n);
end
c=ci/rci;
if c > 0.1
 s=sprintf('Warning: Consistency ratio %.3f > 0.1',c);
disp([s]);
end