clc
clear?
A=[1?5?3?7;1/5?1?1/3?3;1/3?3?1?5;1/7?1/3?1/5?1];
[mn]=size（A）;
RI=[0?0?0.58?0.90?1.12?1.24?1.32?1.41?1.45?1.49?1.51];
R=rank（A）;
[VD]=eig（A）;
tz=max（D）;
B=max（tz）;
[rowcol]=find（D==B）;
C=V（:col）;
CI=（B-n）/（n-1）;
CR=CI/RI（1n）;
if?CR<0.10
????disp（‘CI=‘）;disp（CI）;
????disp（‘CR=‘）;disp（CR）;
????disp（‘矩陣通過一致性檢驗，各向量權重向量Q為：‘）;
????Q=zeros（n1）;
????for?i=1:n
????????Q（i1）=C（i1）/sum（C（:1））;
????end
????Q
else
????disp（‘矩陣沒有通過一致性檢驗，請重新構造‘）;
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2019-01-25?15:32??小波神經網絡預測模型代碼\
?????文件?????????519??2018-08-16?10:54??小波神經網絡預測模型代碼\cengcifenxi.m
?????文件??????????97??2009-04-12?09:56??小波神經網絡預測模型代碼\d_mymorlet.m
?????文件??????????90??2009-04-12?09:54??小波神經網絡預測模型代碼\mymorlet.m
?????文件?????????277??2018-08-16?11:22??小波神經網絡預測模型代碼\shenjingwangluo.m
?????文件????????1574??2009-11-26?10:58??小波神經網絡預測模型代碼\traffic_flux.mat
?????文件????????5472??2013-08-21?07:44??小波神經網絡預測模型代碼\wavenn.m