我使用的是matlab2016b，帮我编写一段代码，内容为：使用层次分析法，利用判断矩阵的扰动误差矩阵调整判断矩阵的一致性，构造扰动误差矩阵要使用正交矩阵法，我构造的判断矩阵是使用1-9标度法构造的，所以调整后的判断矩阵依旧要符合1-9标度法，而且调整后的判断矩阵主对角线元素依旧为1

好的，以下是使用层次分析法(AHP)对判断矩阵进行一致性调整的MATLAB代码：

% 构造判断矩阵 A
A = [1, 2, 5; 
     1/2, 1, 3; 
     1/5, 1/3, 1];

% 构造正交矩阵 B
B = [1, 1, 1; 
     1, -1, 0; 
     1, 0, -1];

% 计算扰动误差矩阵 E
E = B * randn(3) * B';

% 调整判断矩阵 A 以满足一致性
[~, ~, lambda_max] = ahp(A); % 计算初始一致性指标
A_new = (A + E) ./ (1 + lambda_max * E); % 调整后的判断矩阵
A_new(logical(eye(size(A_new)))) = 1; % 主对角线元素置 1

% 检查调整后的判断矩阵是否符合 1-9 标度法
[row, col] = find(A_new < 1 | A_new > 9);
if isempty(row)
    disp('调整后的判断矩阵符合 1-9 标度法！');
else
    disp('调整后的判断矩阵不符合 1-9 标度法！');
end

其中，`ahp` 函数是一个计算层次分析法一致性的函数，可以使用以下代码进行定义：

function [CI, RI, lambda_max] = ahp(A)
% 计算层次分析法(AHP)的一致性指标
n = size(A, 1);
WI = sum(A) ./ n; % 计算每个指标的权重
RI = [0, 0, 0.58, 0.9, 1.12, 1.24, 1.32, 1.41, 1.45, 1.49]; % 随机一致性指标
lambda_max = max(eig(A)); % 计算最大特征值
CI = (lambda_max - n) / (n - 1); % 计算一致性指标
CR = CI / RI(n); % 计算一致性比率
if CR < 0.1
    disp('判断矩阵 A 通过一致性检验！');
else
    disp('判断矩阵 A 未通过一致性检验！');
end

注意，在进行一致性调整时，需要先计算初始的一致性指标，然后利用扰动误差矩阵进行调整。调整后的判断矩阵需要再次检查是否符合 1-9 标度法。