close all I = imread('E:\txm.jpg'); J= rgb2gray(I); figure(1) imshow(J); title('灰 度 化 图 像 '); [e1,e2]=size(J); Im=imcrop(J,[e2/2-200,e1/2-200,400,400]); figure(2) subplot(1,2,1),imshow(Im) title('中心区域 '); subplot(1,2,2),imhist(Im) title('中心区域直方图 '); [xa,ya]=size(Im); b=double(Im); zd=double(max(Im)) ; zx=double(min(Im)) ; T=double((zd+zx))/2; count=double(0); while 1 count=count+1; S0=0.0; n0=0.0; S1=0.0; n1=0.0; for i=1:xa for j=1:ya if double(Im(i,j))>=T S1=S1+double(Im(i,j)); n1=n1+1; else S0=S0+double(Im(i,j)); n0=n0+1; end end end T0=S0/n0; T1=S1/n1; if abs(T-((T0+T1)/2))<0.1 break; else T=(T0+T1)/2; end end count T K=find(J
=T); J(K)=255; figure(3) imshow(J) title(' 图 像 二 值 化 '); B=medfilt2(J,[5,1]); figure(4) imshow(B) title('中值 滤波后图 像 '); [y0,x0]=size(B); BW = edge(B,'log'); figure(5);imshow(BW);title('边缘检测图 像 ') %function code = barcode(pic) %条 形 码 识 别 check_left = [13,25,19,61,35,49,47,59,55,11;... %左 边 数 据 编 码 ， 奇 39,51,27,33,29,57, 5,17, 9,23]; %左 边 数 据 编 码 ， 偶 check_right = [114,102,108,66,92,78,80,68,72,116]; %右 边 数 据 编 码 first_num = [31,20,18,17,12,6,3,10,9,5];%第 一位数 据 编 码 bar = imread('E:\txm.jpg');%读输入条 形 码 图片 bar_Gray = rgb2gray(bar);%将 RGB 图片转换灰度图 [a_hist x] = imhist(bar_Gray); hist_max = []; if a_hist(1)>a_hist(2) hist_max = [hist_max 1]; end x = max(x); for i=2:x if a_hist(i)>a_hist(i-1) && a_hist(i)>a_hist(i+1) hist_max = [hist_max i]; end end if a_hist(x)
