bargene.m

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

function[P]=bargene();
F=282;%焦距为250mm
l0=1000;%光敏面像素个数（1pixel=7.8um=255dots)
ll=l0.*255;%光敏面上点数
vof=pi./120; %视场角
z1=30;%采样间隔
l=6;%直流分量
f=zeros(1,ll);%.*2.5
D=60000;% 视距(可修改）
A=D./F;%放大倍数
L=D.*tan(vof);%标尺成像范围
N0=ll./2;%CCD中心点数
n=1:360;%条码数
y1(n)=4.*sin(2.*pi.*(n-1).*z1./280)+l; %条码A
%确定瞄准线在标尺上的位置（分为两部分）
c0=120;%第c0条B码
cc=7.5;%距离第c0条B码中线的偏移量
C=c0.*30+cc-20;%瞄准线距离标尺底端的距离
q=c0;
while q<=360
r0=q.*30;
au=(C-(r0-10+y1(q)./2)).*25500./A;
ad=(C-(r0-10-y1(q)./2)).*25500./A;
N7=fix(N0-au);
N8=fix(N0-ad);
if (1<=N7)&(N8<=ll)&(N7<N8)
    f(N7:N8)=1;%0
elseif (N7<=1)&(N8<=ll)&(1<=N8)&(N7<N8)
    f(1:N8)=1;
elseif (1<=N7)&(N8>ll)&(N7<=ll)&(N7<N8)
    f(N7:ll)=1;
elseif (N7<=ll)&(1<=N8)&(N7>N8)
    f(N8:N7)=1;%0
elseif (N7<=ll)&(1<=N7)&(N8<=1)&(N7>N8)
    f(1:N7)=1;
elseif (1<=N8)&(N7>ll)&(N8<=ll)&(N7>N8)
    f(N8:ll)=1;%0
  else  break
end
q=q+1;
end

q=c0;
while q>=1
r0=q.*30;
au=(C-(r0-10+y1(q)./2)).*25500./A;
ad=(C-(r0-10-y1(q)./2)).*25500./A;
N7=fix(N0-au);
N8=fix(N0-ad);
if (1<=N7)&(N8<=ll)&(N7<N8)
    f(N7:N8)=1;%0
elseif (N7<=1)&(N8<=ll)&(1<=N8)&(N7<N8)
    f(1:N8)=1;
elseif (1<=N7)&(N8>ll)&(N7<=ll)&(N7<N8)
    f(N7:ll)=1;
elseif (N7<=ll)&(1<=N8)&(N7>N8)
    f(N8:N7)=1;%0
elseif (N7<=ll)&(1<=N7)&(N8<=1)&(N7>N8)
    f(1:N7)=1;
elseif (1<=N8)&(N7>ll)&(N8<=ll)&(N7>N8)
    f(N8:ll)=1;%0
  else  break
end
q=q-1;
end
s=-1500:1500;
s1=(1./(300.*(2.*pi).^(1/2))).*exp(-s.^2./(2.*2250000));
s3=conv(f,s1);
s2=s3(1501:256500);
P=zeros(1,1000);
for p=1:1000
  for wi=1:255
  P(p)=P(p)+s2((p-1).*255+wi);
  end
end
plot(P)