注：应用程序时，只需要将评判矩阵，也就是判断矩阵，输入到程序中即可，即修改A矩阵，其他地方都不需要修改。

        首先进行对矩阵一致性的判断，只有通过一致性检验的矩阵，得到的权重才更可靠，涉及较少变量（如2个变量）直接手算。

Matlab代码如下：

% %AHP权重计算MATLAB程序
% %数据读入
clc;
clear all;
A=[1 2 6;1/2 1 4;1/6 1/4 1];
% %一致性检验和权向量计算
[n,n]=size(A);
[v,d]=eig(A);
r=d(1,1);
CI=(r-n)/(n-1);
RI=[0 0 0.58 0.90 1.12 1.24 1.32 1.41 1.45 1.49 1.52 1.54 1.56 1.58 1.59];
CR=CI/RI(n);
if(CR<0.10)
    CR_RESULT=\'通过\';
else
    CR_RESULT=\'不通过\';
end
% %权向量计算
w=v(:,1)/sum(v(:,1));
w=w\';
% %结果给出
disp(\'该判断矩阵权向量计算报告:\');
disp([\'一致性指标:\' num2str(CI)]);
disp([\'一致性比例:\' num2str(CR)]);
disp([\'一致性检验结果:\' CR_RESULT]);
disp([\'特征值:\' num2str(r)]);
disp([\'特征向量:\' num2str(w)]);