clc; r=[10.30.10.2;0.210.30.1;0.30.210.2;0.10.30.31]; R=[]; fori=1:4 forj=1:4 x1=[]; for m=1:4 x1=[x1,min(r(i,m),r(m,j))]; end R(i,j)=max(x1); end end flag=0; fori=1:4 forj=1:4 if r(i,j)~=R(i,j) flag=1; end end end if flag==1 disp('不是传递模糊矩阵') else disp('是传递模糊矩阵') end