模糊等价矩阵的求法（Matlab）

admin

1. %求模糊等价矩阵，当sum(sum(abs(Q-QQ)))/1225>1.0000e-006终止
   
2. function tR=fuz_equ_mat(R)
   
3. clear Q;
   
4. clear QQ;
   
5. format long
   
6. %初始化Q，QQ
   
7. [n,m]=size(R);
   
8. s=sprintf('生成的模糊等价矩阵为');
   
9. disp(s);
   
10. Q=R;
    
11. [n,m]=size(R);
    
12. for i=1:n
    
13.     for j=1:n
    
14.         for k=1:n
    
15.             X(k)=min(R(i,k),R(k,j));
    
16.         end
    
17.         QQ(i,j)=max(X);
    
18.     end
    
19. end
    
20. while(sum(sum(abs(Q-QQ)))/1225>1.0000e-006)
    
21.     Q=QQ;
    
22.     for i=1:n
    
23.         for j=1:n
    
24.             for k=1:n
    
25.             X(k)=min(Q(i,k),Q(k,j));
    
26.             end
    
27.             QQ(i,j)=max(X);
    
28.         end
    
29.     end
    
30. end
    
31. tR=Q;

复制代码