clear?all??
clc??
close?all??
mdist=input（‘輸入坐標文件名字\n‘）;??
disp（‘讀取數(shù)據(jù)坐標‘）??
%獲取坐標??
%文件為二維的坐標，第一列為x軸坐標，第二列為y軸坐標??
xx=load（mdist）;??
%獲取數(shù)據(jù)的個數(shù)存至number??
[number?row]=size（xx）;??
%獲取距離矩陣，第二參數(shù)指定距離計算方法??
%可選參數(shù)有‘euclidean‘：歐氏距離（默認）；‘seuclidean‘：標準化歐氏距離；??
%‘mahalanobis‘：馬氏距離；‘cityblock‘：布洛克距離；‘minkowski‘：明可夫斯基距離；??
%‘cosine‘：余弦距離?‘correlation‘：相關性?‘hamming‘：漢明距離?‘jaccard‘：Jaccard相似度??
%‘chebychev‘：Chebychev距離。??
yy=pdist（xx‘euclidean‘）;??
%獲取聚類，第二參數(shù)指定層次聚類方式??
%‘single‘：單連通，最短距離法（默認）；‘complete‘：全連通，最長距離法；‘a(chǎn)verage‘：未加權平均距離法；???
%‘weighted‘：?加權平均法；‘centroid‘：?質(zhì)心距離法；‘median‘：加權質(zhì)心距離法；‘ward‘：內(nèi)平方距離法（最小方差算法）??
zz=linkage（yy‘si