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