模糊聚类
fu
ctio
cfuz_hcab模糊矩阵的合成运算程序输入模糊矩阵ab，输出合成运算结果cmsizea1
sizeb2psizea2错误排除ifsizea2sizeb1disp输入数据错误！retur
e
d合成运算fori1mforj1
fork1ptempkmi
aikbkje
dcijmaxtempe
de
ddisp模糊矩阵a与b作合成运算后结果矩阵c为：c
求模糊等价矩阵fu
ctio
r_dmhdjrm
sizerfori1
forj1
fork1
r1ijkmi
rikrkje
dr1maxijr1ij1e
de
dfori1
forj1
fork1

fifr1ijkr1maxijr1maxijr1ijke
de
dr_dijr1maxije
de
d
模糊聚类程序fu
ctio
fmujlxlamda输入原始数据以及lamda的值iflamda1disperror错误处理e
d
msizexypdistxdisp欧式距离矩阵：distsquareformy欧氏距离矩阵dmaxdist11fori1
forj1
ifdistijdmaxdmaxdistije
de
de
ddisp处理后的欧氏距离矩阵，其特点为每项元素均不超过1：sdistdistdmax使距离值不超过1disp模糊关系矩阵：ro
es
sdist计算对应的模糊关系矩阵tmhdjrletrwhileallallle001rttmhdjrletr如果t与r相等，则继续求r乘以r
fe
ddisp模糊等价矩阵为：tfori1
k1forj1
iftijlamdagroupikjkk1e
de
de
ddisp聚类结果如下（数字0为自动填充数据，不是样本序号）：group1fori2
k0forj1i1ifallgroupigroupj1两行值完全相等，不输出k1breake
de
difk0dispgroupi仅输出不重复的分类e
de
d
模糊聚类程序fu
ctio
fmujlxlamda输入原始数据以及lamda的值iflamda1disperror错误处理e
d
msizexxmaxmaxxxmi
mi
x
fxxxmi
o
es
1xmaxo
es
1xmi
o
es
1ypdistxdisp欧式距离矩阵：distsquareformy欧氏距离矩阵dmaxdist11fori1
forj1
ifdistijdmaxdmaxdistije
de
de
ddisp处理后的欧氏距离矩阵，其特点为每项元素均不超过1：sdistdistdmax使距离值不超过1disp模糊关系矩阵：ro
es
sdist计算对应的模糊关系矩阵tmhdjrletrwhileallallle001rttmhdjrletre
ddisp模糊等价矩阵为：tfori1
k1forj1
iftijlamdagroupikjkk1e
de
de
ddisp聚类结果如下（数字0为自动填充数据，不是样本序号）：group1如果t与r相等，则继续求r乘以r
fgru_val1fori2
k0forj1i1ifallgroupigroupj1两行值完全相等，不输出k1breake
de
difk0disp第i类样本序号：igru_valgru_val1dispgroupi仅输出不重复的分类e
de
dgru_val
fr