k=input(Enterthefilename:,s)；%輸入車牌照片im=imread(k)；imshow(im)；im_gray=rgb2gray(im)；im_gray=medfilt2(im_gray,3,3)；%對圖像進(jìn)行中值濾波Image=im2bw(im_gray,0.2)；BW=edge(im_gray,sobel)；%找出圖像邊緣imx,imy=size(BW)；%計(jì)算圖像大小msk=00000；01110；01110；01110；00000；B0=conv2(double(BW),double(msk)；%對邊緣區(qū)域進(jìn)行加強(qiáng)se=ones(2,80)；B1=imdilate(B0,se)；%figure；%imshow(B1)；B2=imerode(B1,se)；%figure；%imshow(B2)；se=ones(20,2)；B3=imdilate(B2,se)；%figure；imshow(B3)；B4=imerode(B3,se)；%figure；imshow(B4)；se=ones(50,2)；B5=imdilate(B4,se)；%figure；imshow(B5)；B6=imerode(B5,se)；%figure；imshow(B6)；%對邊界圖進(jìn)行小區(qū)域連通，使車牌區(qū)域連通為一個(gè)方塊B,L=bwboundaries(B6,4)；imshow(label2rgb(L,jet,.5.5.5)%對連通區(qū)域進(jìn)行標(biāo)記holdonfork=1:length(B)%用線條給連通區(qū)域標(biāo)上邊界線boundary=Bk；plot(boundary(:,2),boundary(:,1),w,LineWidth,2)endstats=regionprops(L,Area,Centroid)；%找到每個(gè)連通域的質(zhì)心fork=1:length(B)%循環(huán)遍歷每個(gè)連通域的邊界boundary=Bk；%獲取一條邊界上的所有點(diǎn)delta_sq=diff(boundary).2；perimeter=sum(sqrt(sum(delta_sq,2)；%計(jì)算邊界周長area=stats(k).Area；%獲取邊界所圍面積metric=27*area/perimeter2；%計(jì)算匹配度metric_string=sprintf(%2.2f,metric)；%要顯示的匹配度字串ifmetric=0.85&metric1000%截取出匹配度接近1且面積大于1000像素的連通域centroid=stats(k).Centroid；plot(centroid(1),centroid(2),ko)；%提取該連通域所對應(yīng)在二值圖像中的矩形區(qū)域goalboundary=boundary；s=min(goalboundary,1)；e=max(goalboundary,1)；goal=imcrop(Image,s(2)s(1)e(2)-s(2)e(1)-s(1)；endtext(boundary(1,2)-35,boundary(1,1)+13,metric_string,Color,g,FontSize,14,FontWeight,bold)；%顯示匹配度字串endgoal=goal；%對截取圖像進(jìn)行反色處理figure；imshow(goal)；a,b=size(goal)；fori=a/2:-1:1%從圖像水平中軸開始向上掃描，當(dāng)白點(diǎn)數(shù)少于每行總點(diǎn)數(shù)的1/10時(shí)，停止掃描，并將該行定義為車牌字符區(qū)域的上限num=0；forj=1:bifgoal(i,j)=1num=num+1；endendifnum(b*0.1)line_up=i；break；endendfori=a/2:a%從圖像水平中軸開始向下掃描，當(dāng)白點(diǎn)數(shù)少于每行總點(diǎn)數(shù)的1/10時(shí)，停止掃描，并將該行定義為車牌字符區(qū)域的下限num=0；forj=1:bifgoal(i,j)=1num=num+1；endendifnum(b*0.1)line_down=i；break；endendgoal=goal(line_up:line_down,1:b)；%根據(jù)之前定義的上下限截取車牌字符區(qū)域figure；imshow(goal)；%顯示車牌字符區(qū)域a,b=size(goal)；row=zeros(18)；now=1；flag=0；forj=1:b%對截取出的字符區(qū)域進(jìn)行豎列掃描，并取每列總點(diǎn)數(shù)的1/10作為閾值點(diǎn)，當(dāng)每列的白點(diǎn)數(shù)從閾值以上掉落到閾值以下或從閾值以下上升到閾值以上時(shí)，記錄該列的橫坐標(biāo)num=0；fori=1:aifgoal(i,j)=1num=num+1；endendifflag=0ifnum0.1*arow(now)=j；now=now+1；flag=0；endendendifrow(3)-row(2)10%判斷掃描出的第二塊區(qū)域（掃描到的第二列與第三列之間）是否包含有效字符，如包含，則將掃描到的第二列定義為字符分割的起始列；否則，則定義第一列為起始列now=2；elsenow=1；endfigure；l1=0；l2=0；fork=1:8m=row(now)；n=row(now+1)；temp=goal(1:a,m:n)；point=0；%掃描每一個(gè)字符圖片的白點(diǎn)數(shù)fori=1:aforj=1:n-miftemp(i,j)=1point=point+1；endendendifpoint0.4*a*(n-m)&nm%當(dāng)掃描到的白點(diǎn)數(shù)小于總點(diǎn)數(shù)的2/5時(shí)放棄輸出（有可能是車牌上的點(diǎn)狀分隔符）l2=l2+1；%l2用來記錄識(shí)別出的字符數(shù)subplot(1,7,l2)；x(k)=code(temp)；%調(diào)用子程序進(jìn)行字符掃描，并返回字符的ASCII碼x(k)=uint8(x(k)；ifx(k)0%當(dāng)所選區(qū)域不為空時(shí)進(jìn)行輸出l1=l1+1；%l1用來記錄輸出的字符數(shù)s(l1)=char(x(k)；endtemp(32,32)=0；imshow(temp)；endnow