barcode 基于图像的条形码识别程序（识别EAN13码）

基于图像的条形码识别程序（识别EAN13码），只要条形码的背景部分是纯色，程序就能有相当强的鲁棒性。

function EAN_13=barcode（f0）
EAN_13=-ones（113）;
f1=rgb2gray（f0）;
f2=medfilt2（f1）;
w=[-1 -1 -1;-1 8 -1;-1 -1 -1];
f3=imfilter（f2w‘replicate‘）;
f4=f2+f3;
f5=im2double（f4）;
f6=mat2gray（f5）;
T=graythresh（f6）;
f7=f6>=T;
f8=medfilt2（f7）;
figureimshow（f8）;
[f9t]=edge（f8‘roberts‘）;
figureimshow（f9）;
fai=0.5;
[Hthetarho]=hough（f9fai）;
[rchnew]=houghpeaks（H20）;
range=fai*（c-1）-（90-fai）;
angle=median（range）;
rotate=（90+angle）*pi/180;
matrix=[cos（rotate） sin（rotate） 0;-sin（rotate） cos（rotate） 0;0 0 1];
tform=maketform（‘affine‘matrix）;
f10=imtransform（f8tform‘FillValue‘1）;
figureimshow（f10）;
[MN]=size（f10）;
boundary=zeros（MN）;
sum=zeros（1M）;
threshold=2;
for i=1:M
    status=true;
    for j=1:N
        if status == true
            if f10（ij）==0
  

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件    1435114  2010-01-16 21:54  图像条形码识别程序\3.bmp

     文件      12511  2010-01-19 10:53  图像条形码识别程序\barcode.m

     文件       1024  2010-01-17 17:42  图像条形码识别程序\hough.m

     文件       1077  2010-01-17 17:18  图像条形码识别程序\houghpeaks.m

     文件        149  2010-01-19 10:57  图像条形码识别程序\Readme.txt

    ..A.SH.     48640  2010-01-19 11:02  图像条形码识别程序\Thumbs.db

     目录          0  2010-01-23 02:07  图像条形码识别程序

----------- ---------  ---------- -----  ----

              1498515                    7