层次分析法的matlab程序

层次分析法（Analytic Hierarchy Process简称AHP）是将决策总是有关的元素分解成目标、准则、方案等层次，在此基础之上进行定性和定量分析的决策方法。 该matlab程序是大学教授写的，非常有用，忍痛割舍给大家，希望对大家有帮助

disp（‘请输入判断矩阵A（n阶）‘）;
A=input（‘A=‘）;
[nn]=size（A）;
x=ones（n100）;
y=ones（n100）;
m=zeros（1100）;
m（1）=max（x（:1））;
y（:1）=x（:1）;
x（:2）=A*y（:1）;
m（2）=max（x（:2））;
y（:2）=x（:2）/m（2）;
p=0.0001;i=2;k=abs（m（2）-m（1））;
while  k>p
  i=i+1;
  x（:i）=A*y（:i-1）;
  m（i）=max（x（:i））;
  y（:i）=x（:i）/m（i）;
  k=abs（m（i）-m（i-1））;
end
a=sum（y（:i））;
w=y（:i）/a;
t=m（i）;
disp（w）;disp（t）;
         %以下是一致性检验
CI=（t-n）/（n-1）;RI=[0 0 0.52 0.89 1.12 1.26 1.36 1.41 1.46 1.49 1.52 1.54 1.56 1.58 1.59];
CR=CI/RI（n）;
if CR<0.10
    disp（‘此矩阵的一致性可以接受!‘）;
    disp（‘CI=‘）;disp（CI）;
    disp（‘CR=‘）;disp（CR）;
end

function AHPInit1（xy）
%层次分析的初始化
%默认只有两层 x为准则数，y为方案数
%CToT为准则对目标生成的比较阵
%EigOfCri为准则层的特征向量
%EigOfOpt为选项层的特征向量

EigOfCri=zeros（x1）;%准则层的特征向量
EigOfOpt=zeros（yx）;
dim=x;%维度
RI=[0 0 0.58 0.90 1.12 1.24 1.32 1.41 1.45 1.49 1.51];%RI标准
%生成成对比较阵
for i=1:dim
        CToT（i:）=input（‘请输入数据:‘）;
end
CToT %输出
pause
tempmatrix=zeros（x+1）;
tempmatrix=AHP1（dimCToT）;
EigOfCri=tempmatrix（1:x）;
ci1=tempmatrix（1+x）;
EigOfCri
ci1
pause

matrix=cell（x）;%元胞数组
ci=zeros（1x）;