灰度图像二值化方法matlab代码[1]

《灰度图像二值化方法matlab代码[1]》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Bernsen算法代码：clc;clearallcloseallI=imread('****');[m,n]=size(I);I_gray=double(I);T=zeros(m,n);M=3;N=3;fori=M+1:m-Mforj=N+1:n-Nmax=1;min=255;fork=i-M:i+Mforl=j-N:j+NifI_gray(k,l)>maxmax=I_gray(k,l);endifI_gray(k,l)

2、x+min)/2;endendI_bw=zeros(m,n);fori=1:mforj=1:nifI_gray(i,j)>T(i,j)I_bw(i,j)=255;elseI_bw(i,j)=0;endendendsubplot(121),imshow(I);subplot(122),imshow(I_bw);2改进的Bernsen算法代码：clc;clearallcloseallI=imread('****');I_gray=double(I);[m,n]=size(I);a=0.3;A=0;T1

3、=0;S=0;fori=1:mforj=1:nA=A+I_gray(i,j);endendA=A*0.9;while(Smaxma

4、x=I_gray(k,l);endifI_gray(k,l)(1+a)*T1I_bw(i,j)=255;endifI_gray(i,j)<(1-a)*T1I_bw(i,j)=0;endif(1-a

5、)*T1<=I_gray(i,j)<=(1-a)*T1ifT3(i,j)>a*T1ifI_gray(i,j)>=T4(i,j)I_bw(i,j)=255;elseI_bw(i,j)=0;endelseifI_gray(i,j)>=T5(i,j)I_bw(i,j)=255;elseI_bw(i,j)=0;endendendendendsubplot(121),imshow(I);subplot(122),imshow(I_bw);2