sprintf('%s','調用.xls數據文件，作未標準化數據的聚類分析')
clear;
X=xlsread('shuju01');
subplot(1,2,1);
disp('畫出數據如圖:');
plot(X,'r*');
disp('按回車進行據類分析!');
pause;
subplot(1,2,2);
Y=pdist(X,'euclidean');        
%此處距離還可以是：
% cityblock(絕對值距離)
% Euclidean（歐式距離）
% Minkowski（閔可夫斯基距離）
% Chebychev（切比雪夫距離）
% mahalanobis（馬氏距離）
Z=linkage(Y,'centroid');
% 此處計算距離方法還可以是：
% single（最短距離）
% complete（最長距離） 
% average（平均距離）
% weighted(加權平均距離，只對點點間的距離取歐氏距離有效)
% centroid（中心距離法）
% median（加權質量重心距離法）
% ward（內積平方距離法） 
 [H,T]=dendrogram(Z,'colorthreshold',30);  %輸出分類圖，省略0將輸出30個葉子
 T=cluster(Z,4);   %最終分成四類
% %27行的數字可以修改  %%
 sprintf('%s','第一類元素有：')
 find(T==1)
 sprintf('%s','第二類元素有：')
 find(T==2)
 sprintf('%s','第三類元素有：')
 find(T==3)
 sprintf('%s','第四類元素有：')
 find(T==4)
shg