function?km=kmedoids（particledataraydisclum）

global?K;
%?global?discluster;????

??ms=particle;
??km=ms;
for?k=1:K
????????????ctem=find（disclu（:2）==k）;?
????????????sc=size（ctem）;
????????????for?c=1:sc
????????????cluster（c:k）=dataray（ctem（c）:）;
????????????end
?????????
???????????%%在類中順序（隨機）選取對象置換類中心，并聚類
?????????????
????????????for?t=1:sc
???????????????
????????????????if?cluster（t:k）~=particle（k:）????????????????????
????????????????????ms（k:）=cluster（t:k）;
????????????????????[ch?ch2]=updistance（ms（::）dataray（::）m）;
????????????????????if?ch2==0
????????????????????????km=ch;%particleray（k:m）
????????????????????????disp（‘yes‘）;
????????????????????elseif?ch2==1
????????????????????????continue;
????????????????????end
???????????????

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

?????文件???????2486??2010-02-02?10:20??kMedoids\mykedoids.m

?????文件????????885??2010-01-15?16:27??kMedoids\kmedoids.m

?????文件????????821??2010-02-01?16:12??kMedoids\updistance.m

?????目錄??????????0??2010-03-24?14:07??kMedoids

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

?????????????????4192????????????????????4