%%%%%%%%%%%%%%%%%
%函數(shù)名稱?MaxMinDisFun（xTheta）
%輸入?yún)?shù)：
%???????????x???:?x為n*m的特征樣本矩陣，每行為一個樣本，每列為樣本的特征
%?????????Theta：即θ，可用試探法取一固定分數(shù)，如：1/2
%輸出參數(shù)：
%???????????pattern：輸出聚類分析后的樣本類別
%函數(shù)功能?：利用最大最小距離算法聚類樣本數(shù)據(jù)，
%
%%%%%%%%%%%%%%%%%%%%%
function?[pattern]=MaxMinDisFun（xTheta）
maxDistance=0;
index=1;%相當(dāng)于指針指示新中心點的位置
k=1;??????%中心點計數(shù)，也即是類別
center=zeros（size（x））;????%保存中心點
patternNum=size（x1）;??%輸入的數(shù)據(jù)數(shù)（樣本數(shù)）
%distance=zeros（patternNum3）;%distance每列表示所有樣本到每個聚類中心的距離
minDistance=zeros（patternNum1）;%取較小距離
pattern=（patternNum）;%表示類別

center（1:）=x（1:）;%第一個聚類中心
pattern（1）=1;

for?i=2:patternNum
????distance（i1）=sqrt（（x（i:）-center（1:））*（x（i:）-center（1:））‘）;%歐氏距離，與第1個聚類中心的距離
????minDistance（i1）=distance（i1）;
????pattern（i）=1;%第一類
????if（maxDistance????????maxDistance=distance（i1）;%與第一個聚類中心的最大距離
????????index=i;%與第一個聚類中心距離最大的樣本
????end
end

k=k+1;
center（k:）=x（index:）;%把與第一個聚類中心距離最大的樣本作為第二?個聚類中心
pattern（index）=2;%第二類
minDistance（index1）=0;

while?1
????for?i=2:patternNum?
????????if（minDistance（i1）~=0）
????????????distance（ik）=sqrt（（x（i:）-center（k:））*（x（i:）-center（k:））‘）;%與第k個聚類中心的距離
???????????if（minDistance（i1）>distance（ik））
???????????????minDistance（i1）=distance（ik）;
???????????????pattern（i）=k;
???????????end
????????end
????end
????max=0;
????for?i=2:patternNum
????????if（（max????????????max=minDistance（i1）;
????????????index=i;
????????end
????end
????if（max>（maxDistance*Theta））
????????k=k+1;
????????center（k:）=x（index:）;
????????pattern（index）=k;
????????minDistance（index1）=0;
????else
???????????break;
????end
end??
????????
????????
????????
????????

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件????????1995??2016-12-17?17:04??最大最小距離算法matlab代碼\MaxMinDisFun.m
?????文件?????????110??2016-12-17?15:18??最大最小距離算法matlab代碼\test.m
?????目錄???????????0??2016-12-17?17:09??最大最小距離算法matlab代碼\