BSAS顺序聚类算法matlab实现代码注释很全

BSAS顺序聚类算法matlab实现代码（注释很全）BSAS顺序聚类算法matlab实现代码（注释很全）BSAS顺序聚类算法matlab实现代码（注释很全）

function [ belrepre ] = BSAS（Xthetaqorder）   %函数定义
[lN]=size（X）;
n_clust=1;  %申明一个n_clust变量，用作后面类别数的增加
bel=zeros（1N）;  %生成一个和取样X同类型零矩阵
bel（order（1））=n_clust;
repre=X（:order（1））;
for i=2:N   %定义for循环，咱们主要来看看这个大的语句
    [m1m2]=size（repre）;
    [s1s2]=min（sqrt（sum（（repre-X（:order（i））*ones（1m2））.^2）））;   %计算其余各样本点到已有聚类中心的欧式距离，取一个最小的已准备下面和阈值比较，当然开始只有选择了一个，但是在这个FOR循环里面，后面会陆续产生新的聚类
    if （s1>theta）&（n_clust         n_clust=n_clust+1;
         bel（order（i））=n_clust;
         repre=[repreX（:order（i））];  
    else                       %否则不产生新聚类，把此时这个样本点归入那个距离最小的类中，类数不增加，单此时这个加入新样本点的类中心发生变化，应重新生成在返回循环
         bel（order（i））=s2;
         repre（:s2）=（（sum（bel==s2）-1）*repre（:s2）+X（:order（i）））/sum（bel==s2）;
    end
end
end

% 以上仅是我个人观点，请指正、修改----周军华

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-05-02 20:47  BSAS\
     文件     1154048  2012-12-14 21:25  BSAS\（鏈€澶ф渶灏忚窛绂荤畻娉?.doc
     目录           0  2018-05-02 20:48  __MACOSX\
     目录           0  2018-05-02 20:48  __MACOSX\BSAS\
     文件         212  2012-12-14 21:25  __MACOSX\BSAS\._（鏈€澶ф渶灏忚窛绂荤畻娉?.doc
     文件         162  2018-05-02 20:27  BSAS\~$澶ф渶灏忚窛绂荤畻娉?.doc
     文件         187  2018-05-02 20:27  __MACOSX\BSAS\._~$澶ф渶灏忚窛绂荤畻娉?.doc
     文件         514  2012-10-31 20:57  BSAS\BSAS.m
     文件         212  2012-10-31 20:57  __MACOSX\BSAS\._BSAS.m
     文件       13824  2012-10-31 20:57  BSAS\BSAS.doc
     文件         212  2012-10-31 20:57  __MACOSX\BSAS\._BSAS.doc
     文件         344  2012-10-31 21:39  BSAS\main.m
     文件         212  2012-10-31 21:39  __MACOSX\BSAS\._main.m
     文件        1149  2012-10-31 20:57  BSAS\BSAS （1）.m
     文件         212  2012-10-31 20:57  __MACOSX\BSAS\._BSAS （1）.m
     文件       50688  2012-10-31 21:27  BSAS\main.doc
     文件         268  2012-10-31 21:27  __MACOSX\BSAS\._main.doc
     文件         212  2018-05-02 20:47  __MACOSX\._BSAS