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

第三章 MATLAB 编程基础

% 求模糊传递包
R = R；
while sum(sum(R~==mhcc(R，R)))>0

R = mhcc(R，R)；
end
s = R；
end

本程序中若想用“夹角余弦法”求相似系数 r，可将上面程序中的第 19 行
(M=0；) 至第 23 行 ( 倒数第 3 行 ) 用下面的程序段替换。
for i = 1：m
for j = 1：m

M1 = sqrt(sum(xl(i，：).^2) * sum(xl(j，：).^2))；
R(i，j) = (sum(xl(i，：) .* xl(j，：))) / M1；
end
end
程序 4

function [L1，s] = Lamjjz(x，lam)
n = length(x(1，：))；
for i = 1：n

for j = 1：n
if x(i，j) >= lam
L1(i，j) = 1；
end

end
end
A = zeros(n，n+1)；
for i = 1：n

if ~A(i，1)
A(i，2) = i；
for j = 1：n

105