yj.m

余弦距离进行聚类分析

%a 54*359
load a
a=a';
b(1,:)=0*a(1,:);
b(2,:)=0.2*a(37,:);
b(3,:)=0.2*a(39,:);
b(4,:)=0.2*a(40,:);
b(5,:)=0.2*a(41,:);
b(6,:)=0.2*a(42,:);
b=b';
[i,c,s,d]=kmeans(b,26,'Distance','cosine');
for i=1:26
    [m,idx]=min(d(:,i));
    sample(i)=idx;
end
a=a';
for i=1:length(sample)
    q(i,:)=a(sample(i),:)
end