最大最小距离算法函数：
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<distance(i,1))
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<min(i,1))&min(i,1)~=0) % (x(i,:)~=center(k,:))
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);
运行界面截图如下：。