clc
clear
A=imread（‘F:\大三下\計(jì)算機(jī)在材料\關(guān)于作業(yè)\IMAGE\bacteria.bmp‘）;
%imhist（A）;
A=medfilt2（A）;
%??imshow（A）;
%??figure;

[mn]=size（A）;
%二值化部分
for?i=1:m
????for?j=1:n
????????if?A（ij）>79
????????????A（ij）=0;
????????else?A（ij）=255;
????????end
????end
end
A=medfilt2（A）;
A（21）=0;A（12）=0;A（22）=0;
A（2178）=0;A（1177）=0;A（2177）=0;
A（1782）=0;A（1771）=0;A（1772）=0;
A（177177）=0;A（178177）=0;A（177178）=0;

%顯示二值化后圖像
imshow（A）;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%顆粒標(biāo)記部分%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
N=zeros（mn）;
num=0;%記錄顆粒數(shù)目

%掃描目標(biāo)區(qū)域
for?i=2:m
????for?j=2:n
????????if?A（ij）==255?&&?A（i-1j）==0?&&?A（ij-1）==0?&&?N（i-1j）==0?&&?N（ij-1）==0
????????????num=num+1;
????????????N（ij）=num;
%?????????elseif?A（ij）==255?&&?A（i-1j）==255?&&?A（ij-1）==0
??????????

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????4607??2010-06-07?12:16??image_processing.m

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

?????????????????4607????????????????????1