%pattern10_1.m
clear;
%?原始數據

X=load（‘iris.txt‘‘height‘‘weight‘）;?%打開sample.txt文檔
plot（X（:1）X（:2）‘ro‘‘MarkerSize‘8‘LineWidth‘1）;


xlabel（‘x（1）‘）;
ylabel（‘x（2）‘）;
title（‘原始數據‘）;
%?對數據進行標準化變換
Xn=zscore（X）;
%計算樣本間的距離
Y=pdist（Xn‘euclid‘）;??%歐氏距離
squareform（Y）

%?用層次聚類法將所有樣本聚為一類，并畫譜系聚類圖
Z=linkage（Y‘centroid‘）;?%兩類間距離定義為類重心間的距離
dendrogram（Z）;
xlabel（‘樣本‘）;
ylabel（‘類間距離‘）;
title（‘層次聚類分析‘）;
box?on

%?確定樣本分類
T=cluster（Z3）

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????548??2012-05-02?22:19??模式識別作業\cengcijulei.m

?????文件????????130??2012-05-02?22:15??模式識別作業\dist.m

?????文件???????2550??2011-05-10?11:00??模式識別作業\iris.txt

?????文件??????14848??2012-03-19?10:44??模式識別作業\ISODATA\data1.xls

?????文件??????15360??2012-03-19?10:44??模式識別作業\ISODATA\data2.xls

?????文件??????15360??2012-03-20?14:42??模式識別作業\ISODATA\data3.xls

?????文件???????5680??2012-05-02?22:29??模式識別作業\ISODATA\ISODATA.m

?????文件???????2156??2012-05-02?22:25??模式識別作業\Kmeans.m

?????文件???????1222??2012-05-02?22:01??模式識別作業\lsme.m

?????文件???????1634??2012-05-02?22:19??模式識別作業\min_and_max.m

?????文件???????1615??2012-05-04?22:22??模式識別作業\preception.asv

?????文件???????1615??2012-05-04?22:26??模式識別作業\preception.m

?????文件?????????48??2012-05-02?17:12??模式識別作業\sample.txt

?????文件?????????26??2012-05-04?15:21??模式識別作業\w1.txt

?????文件?????????26??2012-05-04?15:21??模式識別作業\w2.txt

?????目錄??????????0??2012-05-03?18:50??模式識別作業\ISODATA

?????目錄??????????0??2012-05-04?19:49??模式識別作業

-----------?---------??----------?-----??----

????????????????62818????????????????????17