k

matlab下实现的k-medoids聚类算法

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
                end 
               % t=t+1;%-1
            end
        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