聚类分析课程设计

《空间分析》

系统聚类算法及编程实现

学院：地质工程与测绘学院

专业：遥感科学与技术

班级：2011260601

学号：

学生姓名：

指导老师：

目录

第1章前言 (3)

第2章算法设计背景 (3)

2.1聚类要素的数据处理 (3)

2.2 距离的计算 (5)

第3章算法思想与编程实现 (5)

3.1 算法思想 (5)

3.2 用Matlab编程实现 (6)

第4章课程设计总结 (10)

主要参考文献 (11)

第一章前言

本课题是根据李斌老师所教授的《空间分析》课程内容及要求而选定的，是对于系统聚类算法的分析研究及利用相关软件的编程而实现系统聚类。研究的是系统聚类算法的分析及编程实现，空间聚类的目的是对空间物体的集群性进行分析，将其分为几个不同的子群（类）。子群的形成的是地理系统运作的结果，根据此可以揭示某种地理机制。此外，子群可以作为其它分析的基础，例如，公共设施的建立一般地说是根据居民点群的分布，而不是具体的居民住宅的分布来布置的，因此需要对居民点群进行聚类分析以形成若干居民点子群，这样便于简化问题，突出重点。

空间聚类可以采用不同的算法过程。在分析之初假定n个点自成一类，然后逐步合并，这样在聚类的过程中，分类将越来越少，直至聚至一个适当的分类数目，这一聚类过程称之为系统聚类。常见的聚类分析方法有系统聚类法、动态聚类法和模糊聚类法等。下面主要介绍系统聚类算法，并基于Matlab软件来实现算法的编程。

第二章算法设计背景

2.1聚类要素的数据处理

假设有m 个聚类的对象，每一个聚类对象都有个要素构成。它们所对应的要素数据可用表3.4.1给出。在聚类分析中，常用的聚类要素的数据处理方法有如下几种。

①总和标准化

②标准差标准化

③极大值标准化

经过这种标准化所得的新数据，各要素的极大值为1，其余各数值小于1。

④极差的标准化

经过这种标准化所得的新数据，各要素的极大值为1，极小值为0，其余的数值均在0与1之间。

2.2距离的计算

距离是事物之间差异性的测度，差异性越大，则相似性越小，所以距离是系统聚类分析的依据和基础。

选择不同的距离，聚类结果会有所差异。在地理分区和分类研究中，往往采用几种距离进行计算、对比，选择一种较为合适的距离进行聚类。

第三章算法思想与编程实现

3.1算法思想

我们已经指出系统聚类方法首先将n个空间点看做是n个子群，然后根据

所选用的聚类统计量来计算n个子群之间的关系。对于距离，计算n个子群两两之间的距离，首先选择距离最近的两个子群（点）归为一个新的子群，这样就得到n-1个子群两两之间的聚类统计量，继续选择距离最近的子群合并，再得到n-2个子群……，依此类推，直到所有的子群全部合并。

3.2用 Matlab 编程实现

运用 Matlab 中的一些基本矩阵计算方法，通过自己编程实现聚类算法，在此只讨论根据最短距离规则聚类的方法。

调用函数：

min1.m——求矩阵最小值，返回最小值所在行和列以及值的大小

min2.m——比较两数大小，返回较小值

std1.m——用极差标准化法标准化矩阵

ds1.m——用绝对值距离法求距离矩阵

cluster.m——应用最短距离聚类法进行聚类分析

print1.m——调用各子函数，显示聚类结果

聚类分析算法

假设距离矩阵为 vector， a 阶，矩阵中最大值为 max，令矩阵上三角元素等于max

聚类次数=a-1,以下步骤作 a-1 次循环:

求改变后矩阵的阶数,计作 c

求矩阵最小值，返回最小值所在行 e 和列 f 以及值的大小 g

for l=1:c,为 vector(c+1,l)赋值，产生新类

令第 c+1 列元素，第 e 行和第 f 行所有元素为，第 e 列和第 f 列所有元素为max

源程序如下：

%std1.m,用极差标准化法标准化矩阵

function std=std1(vector)

max=max(vector); %对列求最大值

min=min(vector);

[a,b]=size(vector); %矩阵大小,a 为行数,b 为列数for i=1:a

for j=1:b

std(i,j)= (vector(i,j)-min(j))/(max(j)-min(j));

end

end

%ds1.m,用绝对值法求距离

function d=ds1(vector);

[a,b]=size(vector);

d=zeros(a);

for i=1:a

for j=1:a

for k=1:b

d(i,j)=d(i,j)+abs(vector(i,k)-vector(j,k));

end

end

end

fprintf('绝对值距离矩阵如下：\n');

disp(d)

%min1.m,求矩阵中最小值，并返回行列数及其值

function [v1,v2,v3]=min1(vector);%v1 为行数，v2 为列数，v3 为其值[v,v2]=min(min(vector'));

[v,v1]=min(min(vector));

v3=min(min(vector));

%min2.m，比较两数大小，返回较小的值

function v1=min(v2,v3);

if v2>v3

v1=v3;

else

v1=v2;

end

%cluster.m,最短距离聚类法

function result=cluster(vector);

[a,b]=size(vector);

max=max(max(vector));

for i=1:a

for j=i:b