Page 114 - 数学建模算法与应用

Mathematical Modeling Algorithms and Applications
数学建模算法与应用

程序 _3：
function s = mhcd(R)
R = R；

while sum(sum(R~==mhcc(R，R)))>0
R = mhcc(R，R)；
end
s = R；
end

% MATLAB 数学建模
function s = mhcc(R1，R2)

% 模糊合成
[m，n] = size(R1)；
[n，n1] = size(R2)；
for i = 1：m
for j = 1：n1

s(i，j) = max(min(R1(i，：)，R2(：，j)))；
end
end

end

function s = mhcdb(R)
% 求模糊传递包

R = R；
while sum(sum(R~==mhcc(R，R)))>0
R = mhcc(R，R)；
end

s = R；
end
function s = mhcd(R)

104