function?[Z?Xcluster?Ycluster?A?cluster]?=?isodata（X?Y?k?L?I?ON?OC?OS?NO?min）;
?
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%??函數(shù)參數(shù)信息??%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
s=size（X）;
s=s（2）;
cluster=zeros（1s）;?%?臨時空間的內(nèi)部檢查
iter=0;
final=0;
vuelve3=0;
A=1;?????%?初始化它的第一例
primeravez=1;???%?沒有要求的參數(shù)修改

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%??1.初始化中心??%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Z=?inicializa_centros（X?Y?A）;


%%%%%%%%%%%%%%%%%%%%%%%%
%??主要方案??%
%%%%%%%%%%%%%%%%%%%%%%%%

while?final==0???%啟動循環(huán)迭代。
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%??2.設(shè)置的參數(shù)值??%
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%???
????if?primeravez==0
		if?vuelve3==0
????????????[Ltemp?Itemp?ktemp?ONtemp?OCtemp?OStemp]=parametros（L?I?k?ON?OC?OS?iter）;
????????end;
????end;
	
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%??3.計算和分配每個坐標(biāo)最近的（X，Y）??%
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
????primeravez=0;
	vuelve3=1;
	for?i=1:s
????????cluster（i）=cercano（X（i）?Y（i）?Z?A）;
	end;
	
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%??4.刪除群集??%
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%?函數(shù)可以減少我們（如果需要）的聚類中心數(shù)目和發(fā)現(xiàn)。
????[Z?A?cluster]=eliminar（A?cluster?Z?X?Y?ON）;
????
????%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%??5.更新群集中心??%
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	Z=recalcula（cluster?X?Y?A?Z）;
????
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
	%??6.最后，分裂或合并??%
	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
????if?（iter==I）
????????final=1;
????????next=0;
	else
????????next=decide78（iter?k?A）;
????end;


	%%%%%%%%%%%%%%%
	%??7.分裂??%
	%%%%%%%%%%%%%%%
	if?next==1
????????next=2;
????????hubo_division=0;
????????A2=A;
??	????divide=0;
????????%?分散的集群，全局分散
????????%?Y的順序分別為最大分散組件變量y的分散。
????????
????????[Di?D?STM]=?dispersion（X?Y?Z?cluster?A）;
	
????????%?滿足條件的各組進行分裂
		i=0;????%?按條件作出分裂和迭代。?????????????????????????
		while?（hubo_division==0）?&?（i?		????i=i+1;??????????????????????????????????????????????????????????????????????????????????????
		????index=find（cluster==i）;?%?index顯示群集的值分區(qū)??????
		????sindex=size（index）;?????????????????????????????????????????????????????????????????????????
		????sindex=sindex（2）;???????????????????????????????????????????????????????????????????????????
		????if??（STM（i）>OS）?&?（??（（Di（i1）>D（1））?&?（Di（i2）>D（2））?&?（sindex>（2*（ON+1））））?|?（A<=（k/2））?）?
		????????hubo_division=1;????????????????????????????????????????????????????????????????????????
		????????next=1;?????????????????????????????????????????????????????????????????????????????????
		????????[Z?cluster]=dividir（STM?A?cluster?Z?i?（A+1）?X?Y）;????%?分裂.?????????????????
		????????A=A+1;??%?表示一個新的分組。??????????????????????????????????????
		????????iter=iter+1;??????????????????????????????????????????????????????????????????????