function?[linkZ]?=?array_Z（cosin）
%UNtitleD?Summary?of?this?function?goes?here
%???Detailed?explanation?goes?here

[lncol]=size（cosin）;
linkZ=zeros（ln-13）;%用于生成譜系圖的矩陣
tag=zeros（ln2）;%標(biāo)識(shí)符，樣本是否已經(jīng)加入譜系中
n=1;
newNo?=?ln+1;%新節(jié)點(diǎn)序號(hào)
while?n????[ij]=find（cosin==max（max（cosin）））;
????cosin（ij）=0;
????if?（tag（i2）~=tag（j2）||tag（i2）==0）||tag（j2）==0
????????if?tag（i1）==1
????????????i=tag（i2）;
????????????tag（tag==i）=newNo;
????????end
????????if?tag（j1）==1
????????????j=tag（j2）;
????????????tag（tag==j）=newNo;
????????end
????????tag（i:）=[1?newNo];
????????tag（j:）=[1?newNo];
????????linkZ（n:）=[j?i?1-max（max（cosin））];%這里用1減去cosin值，是為了方便后面的譜系樹(shù)輸出
????????n=n+1;
????????newNo?=?newNo+1;
????end
end

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件?????????789??2016-01-06?13:34??層次聚類代碼\array_Z.m
?????文件?????????563??2016-01-06?13:31??層次聚類代碼\cosindis.m
?????文件????????1024??2016-01-06?14:21??層次聚類代碼\main.m
?????目錄???????????0??2016-07-18?10:50??層次聚類代碼\