层次分析法程序.doc

1、H1=1 1 1 1 1 1 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 9 9 9 9 9 9 9 99 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9; H2=1/5 1/5 1/5 1/5 1/5 1/5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5; H3=1/9 1/9 1/9 1/9 1/9 1/9 1/5 1/5 1/5 1/5 1/5 1/5 1/5 1/5 1/5 1/5 1/5 1/5 1/5

2、1/5 1/5 1/5 1/5 1/5 1/5 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1; Ah=H1;H1;H1;H1;H1;H1;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H2;H3;H3;H3;H3;H3;H3;. H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3;H3; I9=1 1 3 3 3 5 5 5 5 7 7 7 7 7 5 7 7 7 7 7 7 7 5 7 7 7 9 7 9 9 9 9

3、99 9 9 7 9 9 9 9 9 9 9 9 9 9 9 9 9; I7=1/3 1/3 1 1 1 3 3 3 3 5 5 5 5 5 3 5 5 5 5 5 5 5 3 5 5 . 5 7 5 7 7 7 7 7 7 7 7 5 7 7 7 7 7 7 7 7 7 7 7 7 7; I5=1/5 1/5 1/3 1/3 1/3 1 1 1 1 3 3 3 3 3 1 3 3 3 3 3 3 3 1 3 3 . 3 5 3 5 5 5 5 5 5 5 5 3 5 5 5 5 5 5 5 5 5 5 5 5 5; I3=1/7 1/7 1/5 1/5 1/5 1/3 1/3 1/3 1/3

4、 1 1 1 1 1 1/3 1 1 1 1 1 1 1 1/3 1 1 1 3 1 3 3 3 3 3 3 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3; I1=1/9 1/9 1/7 1/7 1/7 1/5 1/5 1/5 1/5 1/3 1/3 1/3 1/3 1/3 1/5 1/3 1/3 1/3 1/3 1/3 1/3 1/3 1/5 1/3 1/3 . 1/3 1 1/3 1 1 1 1 1 1 1 1 3 1 1 1 1 1 1 1 1 1 1 1 1 1; Ai=I9;I9;I7;I7;I7;I5;I5;I5;I5;I3;I3;I3;I3;I3;I5;I3;I

5、3;I3;I3;I3;I3;I3;I5;I3;I3;I3;I1;I3;I1;I1;I1;I1;I1;I1;I1;I1;I3;I1;I1;I1;I1;I1;I1;I1;I1;I1;I1;I1;I1;I1; J1=9 5 5 9 5 1 1 5 5 5 9 9 5 5 9 5 9 5 9 9 5 5 5 5 9 . 5 5 5 5 1 5 5 9 5 5 9 1 1 5 5 5 5 5 9 1 5 5 1 5 5; J2=5 1 1 5 1 1/5 1/5 1 1 1 5 5 1 1 5 1 5 1 5 5 1 1 1 1 5 . 1 1 1 1 1/5 1 1 5 1 1 5 1/5 1/5 1

6、 1 1 1 1 5 1/5 1 1 1/5 1 1; J3=1 1/5 1/5 1 1/5 1/9 1/9 1/5 1/5 1/5 1 1 1/5 1/5 1 1/5 1 1/5 1 1 1/5 1/5 1/5 1/5 1 1/5 1/5 1/5 1/5 1/9 1/5 1/5 1 1/5 1/5 1 1/9 1/9 1/51/5 1/5 1/5 1/5 1 1/9 1/5 1/5 1/9 1/5 1/5; Aj=J3;J2;J2;J3;J2;J1;J1;J2;J2;J2;J3;J3;J2;J2;J3;J2;J3;J2;J3;J3;J2;J2;J2;J2;J3;J2;J2;J2;J2;J1;

7、J2;J2;J3;J2;J2;J3;J1;J1;J2;J2;J2;J2;J2;J3;J1;J2;J2;J1;J2;J2; K1=1 5 5 1 5 9 5 5 5 1 9 1 9 5 1 5 9 5 1 5 5 5 5 5 9 . 1 5 5 9 5 1 5 5 1 5 9 5 1 5 1 5 1 5 9 1 5 1 1 5 5; K2=1/5 1 1 1/5 1 5 1 1 1 1/5 5 1/5 5 1 1/5 1 5 1 1/5 1 1 1 1 1 5 . 1/5 1 1 5 1 1/5 1 1 1/5 1 5 1 1/5 1 1/5 1 1/5 1 5 1/5 1 1/5 1/5 1

8、1; K3=1/9 1/5 1/5 1/9 1/5 1 1/5 1/5 1/5 1/9 1 1/9 1 1/5 1/9 1/5 1 1/5 1/9 1/5 1/5 1/5 1/5 1/5 1 . 1/9 1/5 1/5 1 1/5 1/9 1/5 1/5 1/9 1/5 1 1/5 1/9 1/5 1/9 1/5 1/9 1/5 1 1/9 1/5 1/9 1/9 1/5 1/5; Ak=K1;K2;K2;K1;K2;K3;K2;K2;K2;K1;K3;K1;K3;K2;K1;K2;K3;K2;K1; K2;K2;K2;K2;K2;K3;K1;K2;K2;K3;K2;K1;K2;K2;K1;K

9、2;K3;K2;K1;K2;K1;K2;K1;K2;K3;K1;K2;K1;K1;K2;K2;L1=1 3 3 3 5 5 3 1 5 3 1 3 1 3 5 1 3 3 35 5 5 1 1 5 5 3 3 1 1 3 3 5 5 3 1 3 31 5 5 3 1 3 5 5 1 1 3 3;L2=1/3 1 1 1 3 3 1 1/33 1 1/31 1/31 3 1/31 11 3 3 3 1/31/33 3 1 1 1/31/31 1 3 3 1 1/311 1/33 3 1 1/31 3 3 1/31/31 1;L3=1/5 1/31/31/31 1 1/31/51 1/31/51/

10、31/51/31 1/51/31/31/31 1 1 1/51/51 1 1/31/31/51/51/31/31 1 1/31/51/31/31/51 1 1/31/51/31 1 1/51/51/31/3;Al=L1 ;L2;L2;L2;L3;L3;L2;L1;L3;L2;L1;L2;L1;L2;L3;L1;L2;L2;L2;L3;L3;L3;L1;L1;L3;L3;L2;L2;L1;L1;L2;L2;L3;L3;L2;L1;L2;L2;L1;L3;L3;L2;L1;L2;L3;L3;L1;L1;L2;L2;A=1 2 3 4 5;1/2 1 2 3 4;1/3 1/2 1 2 3;1/4

11、1/3 1/2 1 2;1/5 1/4 1/3 1/2 1 ; P1,R1=eig(Ah); P2,R2=eig(Ai); P3,R3=eig(Aj); P4,R4=eig(Ak); P5,R5=eig(Al);p,r=eig(A); t1=reshape(R1,1,2500); t2=reshape(R2,1,2500); t3=reshape(R3,1,2500); t4=reshape(R4,1,2500); t5=reshape(R5,1,2500);t=reshape(r,1,25); m1=max(t1); m2=max(t2); m3=max(t3); m4=max(t4); m

12、5=max(t5);m=max(t); CI1=(m1-50)/(50-1); CI2=(m2-50)/(50-1); CI3=(m3-50)/(50-1); CI4=(m4-50)/(50-1); CI5=(m5-50)/(50-1);CI=(m-5)/(5-1); i1,j1=find(R1=m1); i2,j2=find(R2=m2); i3,j3=find(R3=m3); i4,j4=find(R4=m4); i5,j5=find(R5=m5);i,j=find(r=m); W1=P1(:,j1); W2=P2(:,j2); W3=P3(:,j3); W4=P4(:,j4); W5=P4(:,j5);W=p(:,j); W1=W1/sum(W1); W2=W2/sum(W2); W3=W3/sum(W3); W4=W4/sum(W4);W5=W5/sum(W5); W=W/sum(W); a=W1,W2,W3,W4,W5; Z=a*W; %最终排名向量 CI1,CI2,CI3,CI4,CI5,a,Z