实验一 最大最小距离法 预习报告

一、实验目的

本实验的目的是使学生了解最大最小距离法聚类方法，掌握最大最小距离聚类分析法的基本原理，培养学生实际动手和思考能力，为数据分析和处理打下牢固基础。

二、最大最小距离聚类算法

该算法以欧氏距离为基础，首先辨识最远的聚类中心，然后确定其他的聚类中心，直到无新的聚类中心产生。最后将样本按最小距离原则归入最近的类。

例：样本分布如图所示。

最大最小距离聚类算法步骤如下：

三、实验结果

见下图所示，为二维点集：

四、实验程序

close all
clc
%坐标点，初始化选定比例系数
num = 10;eta = 0.5;
axis([0 10 0 10]);
hold on
%c = zeros(10,1);z = zeros(10,2);
x1 = [0,0];x2 = [3,8];x3 = [2,2];x4 = [1,1];
x5 = [5,3];x6 = [4,8];x7 = [6,3];x8 = [5,4];
x9 = [6,4];x10 = [7,5];
W = [x1;x2;x3;x4;x5;x6;x7;x8;x9;x10];
%% step1 任选一个坐标点作为第一个聚类中心z1
R= randperm(num);
c(1) = R(1);
z(1,:) = W(c(1),:);
%% step2 从数据中选取一个距离z1最远的坐标点，作为第二个聚类中心z2
d = zeros(num,1);
for i = 1:num
    d(i) = norm(z(1,:)-W(i,:));
end
[~,c(2)] = max(d);%距离，位置
z(2,:)= W(c(2),:);
%% step3 计算剩余数据与z1,z2之间的距离，并求其最小距离
d =zeros(num,2);
for i = 1:num
    d(i,1) = norm(z(1,:)-W(i,:));
    d(i,2) = norm(z(2,:)-W(i,:));
end
D = zeros(num,1);
for i = 1:num
    D(i) = min(d(i,:));
end
%% step4 确定是否存在第三个聚类中心
[m,n] = max(D);%最大值，位置
if m>eta*norm(z(2,:)-z(1,:));
    c(3) = n;
    z(3,:) = W(c(3),:);
    jump = 1;%转至step5
else
    jump = 2;
end
 
switch (jump)
    case 1
        k = 4;
        %% step5 继续确定是否存在聚类中心
        for p = 1:num
            d =zeros(num,length(c));
            for i = 1:length(c)
                for j = 1:num
                    d(j,i) = norm(z(i,:)-W(j,:));
                end
            end
            for i = 1:num
                D(i) = min(d(i,:));
            end
            [m,n] = max(D);%最大值，位置
            if m>eta*norm(z(2,:)-z(1,:));
                c(k) = n;
                z(k,:) = W(c(k),:);
                k = k+1;
            else
                break  %没有新的聚类中心
            end
        end
        
    case 2
        
end
%% step6 最小距离法进行分类
%首先计算数据到每个聚类中心的距离
D =zeros(num,length(c));
for i = 1:length(c)
    for j = 1:num
        D(j,i) = norm(z(i,:)-W(j,:));
    end
end
%归类，判断坐标点属于的类别
k = zeros(length(c),1);
for i = 1:num
    [m,n] = min(D(i,:));
    k(i,1) = n;%归类标识
end
 
%设置颜色
colour = zeros(length(c),3);
for i = 1:length(c)
    colour(i,:) = rand(1,3);
end
 
for i = 1:length(c)
    v = find(k == i);%位置
    u = length(v);%个数
    M = zeros(u,2);%用来存储所属同一类的点
    for j = 1:u
        M(j,:) = W(v(j),:);
    end
    P = plot(M(:,1),M(:,2),'*');
    set(P,'color',colour(i,:));
end