原创力文档- 1、本文档共12页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
PAGE / NUMPAGES
封 面
作者：ZHANGJIAN
仅供个人学习，勿做商业用途
源程序
function [d]=main(png)
I=imread('car.png')。
figure(1),imshow(I)。title('原图')。
I1=rgb2gray(I)。
figure(2),subplot(1,2,1),imshow(I1)。title('灰度图')。
figure(2),subplot(1,2,2),imhist(I1)。title('灰度图直方图')。精品文档收集整理汇总
I2=edge(I1,'robert',0.08,'both')。
figure(3),imshow(I2)。title('robert算子边缘检测')
se=[1。1。1]。
I3=imerode(I2,se)。
figure(4),imshow(I3)。title('腐蚀后图像')。
se=strel('rectangle',[40,40])。
I4=imclose(I3,se)。
figure(5),imshow(I4)。title('平滑图像的轮廓')。
I5=bwareaopen(I4,2000)。
figure(6),imshow(I5)。title('从对象中移除小对象')。
[y,x,z]=size(I5)。
myI=double(I5)。
tic %计算tic与toc之间程序的运行时间
Blue_y=zeros(y,1)。
for i=1:y
for j=1:x
if(myI(i,j,1)==1)
Blue_y(i,1)= Blue_y(i,1)+1。
end end
end
[temp MaxY]=max(Blue_y)。
PY1=MaxY。
while ((Blue_y(PY1,1)>=120)&&(PY1>1))
PY1=PY1-1。
end
PY2=MaxY。
while ((Blue_y(PY2,1)>=40)&&(PY2<y))
PY2=PY2+1。
end
IY=I(PY1:PY2,:,:)。
Blue_x=zeros(1,x)。
for j=1:x
for i=PY1:PY2
if(myI(i,j,1)==1)
Blue_x(1,j)= Blue_x(1,j)+1。
end
end
end
PX1=1。
while ((Blue_x(1,PX1)<3)&&(PX1<x))
PX1=PX1+1。
end
PX2=x。
while ((Blue_x(1,PX2)<3)&&(PX2>PX1))
PX2=PX2-1。
end
PX1=PX1-2。
PX2=PX2+2。
dw=I(PY1:PY2,:,:)。
t=toc。
figure(7),subplot(1,2,1),imshow(IY),title('行方向合理区域')。精品文档收集整理汇总
figure(7),subplot(1,2,2),imshow(dw),title('定位剪切后的彩色车牌图像')精品文档收集整理汇总
imwrite(dw,'dw.jpg')。
[filename,filepath]=uigetfile('dw.jpg','输入一个定位裁剪后的车牌图像')。 精品文档收集整理汇总
%读取
jpg=strcat(filepath,filename)。
a=imread('dw.jpg')。
b=rgb2gray(a)。
imwrite(b,'1.车牌灰度图像.jpg')。
figure(8)。subplot(3,2,1),imshow(b),title('1.车牌灰度图像')精品文档收集整理汇总
g_max=double(max(max(b)))。
g_min=double(min(min(b)))。
T=round(g_max-(g_max-g_min)/3)。
[m,n]=size(b)。
d=(do
文档评论（0）