clear;
clc;
x=[];?%樣本數據
[rowscols]=size（x）;
y=mean（x‘）;???%求每行的平均值
ave=y‘;
ini=x./（repmat（ave1cols））?%數據的初始化
p=0.5;?%分辨系數取0.5
for?j=1:cols????????%求差序列
????for?i=1:rows??????????????????????????
????????cha1（ij）=abs（ini（1j）-ini（ij））;
????end
end
cha=cha1（2:rows:）?%差序列
M=max（max（cha））???%最大差
m=min（min（cha））???%極小差
[ab]=size（cha）;
for?i=1:a??????????%計算關聯系數
????for?j=1:b
????????r（ij）=（（m+p*M）/（cha（ij）+p*M））;
????end
end
R=zeros（1a）;????%計算灰色關聯度
for?i=1:a
????R（1i）=1/b*sum（r（i:））;
end
R

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????576??2012-08-31?16:43??huiseguanliandu.m

?????文件??????34816??2012-08-31?16:42??灰色關聯度matlab程序及結果.doc

-----------?---------??----------?-----??----

????????????????35392????????????????????2