function?g=kmeanway（fk）
tempf=double（f（:））;
tempf=tempf+1;

%create?image?histogram
for?i=1:256
????h（i）=length（find（tempf==i））;
end

%decide?the?starting?mu
mu=（1:k）*max（tempf）/k+1;


%the?process
while?true
????lastmu=mu;
????%classification
????for?i=1:256
????????kdis=abs（i-mu）;
????????index=find（kdis==min（kdis））;
????????store（i）=index（1）;
????end
????
????%recalculate?the?mu
????for?j=1:k
????????equaldis=find（store==j）;
????????mu（j）=sum（equaldis.*h（equaldis））/sum（h（equaldis））;
????end
????if?mu==lastmu
????????break;
????end
end


%?classifications?of?pixels
[mn]=size（f）;
class=zeros（mn）;
for?i=1:m
????for?j=1:n
????????tempf2=abs（double（f（ij））-mu）;
????????index2=find（tempf2==min（tempf2））;
????????class（ij）=index2（1）;
????end
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件??????30486??2010-02-15?17:18??image?segmentation\coast.tiff

?????文件????????983??2010-03-23?17:09??image?segmentation\kmeanway.m

?????文件??????22676??2010-02-15?17:19??image?segmentation\nuts.tiff

?????文件????????188??2010-03-23?23:23??image?segmentation\regrowing.m

?????文件??????53560??2010-02-15?17:19??image?segmentation\splash.tiff

?????文件????????655??2010-03-23?01:27??image?segmentation\splitmerge.m

?????文件????????184??2010-03-20?00:49??image?segmentation\thre.m

?????文件??????78076??2010-02-15?17:19??image?segmentation\tumor1.tiff

?????文件??????49478??2010-02-15?17:19??image?segmentation\tumor2.tiff

?????目錄??????????0??2010-06-23?17:55??image?segmentation

-----------?---------??----------?-----??----

???????????????236286????????????????????10