最大最小距离算法

最大最小距离算法函数：

function [pattern]=maxmin(x)

maxdistance=0;

index=1;%相当于指针指示新中心点的位置

k=1;%中心点计数，也即是类别

center=zeros(size(x));%保存中心点

patternnum=size(x,1);%输入的数据数

distance=zeros(patternnum,3);%求距离

min=zeros(patternnum,1);%取较小距离

pattern=(patternnum);%表示类别

center(1,:)=x(1,:);

pattern(1)=1;

for i=2:patternnum

distance(i,1)=sqrt((x(i,:)-center(1,:))*(x(i,:)-center(1,:))');%欧氏距离min(i,1)=distance(i,1);

pattern(i)=1;

if(maxdistance

maxdistance=distance(i,1);

index=i;

end

end

k=k+1;

center(k,:)=x(index,:);

pattern(index)=2;

min(index,1)=0;

while 1

for i=2:patternnum

if(min(i,1)~=0)

distance(i,k)=sqrt((x(i,:)-center(k,:))*(x(i,:)-center(k,:))');

if(min(i,1)>distance(i,k))

min(i,1)=distance(i,k);

pattern(i)=k;

end

end

end

max=0;

for i=2:patternnum

if((max

max=min(i,1);

index=i;

end

end

if(max>(maxdistance*0.5))

k=k+1;

center(k,:)=x(index,:);

pattern(index)=k;

min(index,1)=0;

else

break;

end

end

程序界面截图如下：

程序框图如下：

当输入模式样本，调用程序如下：

x=[0,0;3,8;2,2;1,1;5,3;4,8;6,3;5,4;6,4;7,5]

pattern=maxmin(x)

（1）当选用第一点为中心，用matlab得出各点与中心点的距离，并分类，将运行结果保存在EXCEL中如下：

（2）与X1距离最远的X6为第二个中心点，用matlab得出各点与中心点的距离，离得较近的中心点归为一类，将运行结果保存在EXCEL中如下：

（3）与个中心距离最远的X7为第三个中心点，用matlab得出各点与中心点的距离，离得较近的中心点归为一类，将运行结果保存在EXCEL中如下：

（4）由于阈值T=最大距离maxdistance的0.5，而各点与各自中心点的距离min都大于阈值T，所以聚类循环工作结束。

运行结果为：

pattern =

1 2 1 1 3 2 3 3 3 3

表明：对于样本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);

运行界面截图如下：