以下为《层次分析法matlab程序》的无排版文字预览,完整格式请下载
下载前请仔细阅读文字预览以及下方图片预览。图片预览是什么样的,下载的文档就是什么样的。
disp('请输入判断矩阵A(n阶)');A=input('A=');[n,n]=size(A);x=ones(n,100);y=ones(n,100);m=zeros(1,100);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));enda=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 CR0.1??? disp('组合一致性不通过,请重新评分')??? returnend%下面根据比较阵的结果进行组合result=EigO 内容过长,仅展示头部和尾部部分文字预览,全文请查看图片预览。 end??? eigVector=V(:,pos);maxeig=D(pos,pos);maxeigdim
CI=(maxeig-dim)/(dim-1);CR=CI/RI(dim);if CR>0.1??? disp('准则对目标影响度评分生成的矩阵不是一致阵,请重新评分')??? returnendCI%归一化sum=0;for h=1:dim??? sum=sum+eigVector(h);endsumpause,for h=1:dim??? eigVector(h)=eigVector(h)/sum;endf=[eigVector;CI];
[文章尾部最后300字内容到此结束,中间部分内容请查看底下的图片预览]请点击下方选择您需要的文档下载。
以上为《层次分析法matlab程序》的无排版文字预览,完整格式请下载
下载前请仔细阅读上面文字预览以及下方图片预览。图片预览是什么样的,下载的文档就是什么样的。