03305927.m

这几项M文件提供了扫描仪如何识别电子标签的方法

clear;
[P]=bargene();%调用原始条码
N=-1;
for n=2:999
    pc1=P(n)-P(n-1);
    pc2=P(n)-P(n+1);
    pcc=pc1.*pc2;
    if pcc>=0;
        N=[N,n];%把符合条件的峰谷像素值放进数组N中
    end  
end
s=length(N);%计算数组N的长度
N1=N(2:end);% 寻访从第2个元素到最后一个元素，并将其放入数组N1中
N2=N1(1);%先把N1的第1个元素放入N2，再对后面的进行筛选
for i=2:s-1
    if  (N1(i)-N1(i-1))~=1 %排除同一峰谷中多的相临像素点，仅保留一个
        N2=[N2,N1(i)]; %从N1的第2个元素开始筛选，存储符合条件的峰谷坐标位置（象素）
    end
end      
%plot(P)
%hold on;
%plot(N2,P(N2),'r*')
l=length(N2);%N2存储的峰谷位置像素所组成的数组的长度

M=null;
for i=2:l-1
    T1=(P(i)+P(i-1))./2;%计算左阈值
    T2=(P(i)+P(i+1))./2;%计算右阈值
    a=find(N2==T1);%获得左阈值的单下标
    b=find(N2==T2);%获得右阈值的单下标
    for k=a:b
        S=0;T=0;
        S=S+k.*P(k);
        T=T+P(k);
    end
    m=S./T;%做加权平均的计算，得出中心位置
    M=[M,m];%把中心位置存放入数组M中
end
for i=2:l
    if (P(i)-P(i-1))>1/3.*max(P(i)-P(i-1))
        a=min(find((P(i)-P(i-1))>1/3.*max(P(i)-P(i-1))));
        b=max(find((P(i)-P(i-1))>1/3.*max(P(i)-P(i-1))));
        break;%当找到该独立边缘位置的时候，跳出循环，并且记录下i的数值
    end
end
for k=a:b
        S=0;T=0;
        S=S+k.*(P(k)-P(k-1));
        T=T+(P(k)-P(k-1));
end
num=S./T; %找条码的独立边缘e
E=null;
for k=1:(num-1)
    e(k)+e(k+1)==2.*m(k);
    E=[E,e];
end
E=[E,num];
for k=(num+1):l
    e(k)+e(k+1)==2.*m(k);
    E=[E,e];
end
%以e为终止边缘和起始边缘分别找两侧边缘
plot(P)
hold on;
plot(E,P(E),'r*')