模糊综合分析程序

模糊综合评价法是一种基于模糊数学的综合评价方法。该综合评价法根据模糊数学的隶属度理论把定性评价转化为定量评价，即用模糊数学对受到多种因素制约的事物或对象做出一个总体的评价。它具有结果清晰，系统性强的特点，能较好地解决模糊的、难以量化的问题，适合各种非确定性问题的解决。

clc
clear
close all
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)); 
end 
a=sum(y(:,i)); 
w=y(:,i)/a; 
t=m(i); 
disp('权向量');disp(w); 
disp('最大特征值');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 CR<0.10 
    disp('此矩阵的一致性可以接受!'); 
    disp('CI=');disp(CI); 
    disp('CR=');disp(CR); 
else 
    disp('此矩阵的一致性不可以接受!');
end

常看我博客的人知道，我的博客重在程序的分享，而很少有原理的解释。这是因为网上相关的原理介绍有很多很多，完全没有必要再把别人的工作重复一遍。谅解~~~