用matlab编程实现车牌字符的批量分割并保存

%subplot(5,7,31),imshow(word3),title('3');
%subplot(5,7,32),imshow(word4),title('4');
%subplot(5,7,33),imshow(word5),title('5');
subplot(5,7,16),imshow(word2),title('2');
subplot(5,7,17),imshow(word3),title('3');
subplot(5,7,18),imshow(word4),title('4');
'*.*','All Files (*.*)'};
% 利用uigetfile函数交互式选取训练样本图片
[FileName FilePath,flag] = uigetfile(PicFormat,'导入分割好的车牌图像',...
'*.jpg','MultiSelect','on');
%imshow(I1);
%I1=getplate(I);%提取车牌
I2=binaryzation3(I1);%车牌二值化
%I3=rotate(I2);
%figure,subplot(211),imshow(I1),title('定位剪切彩色车牌');
%subplot(212),imshow(I3),title('Random矫正车牌');
subplot(5,7,19),imshow(word5),title('5');
subplot(5,7,20),imshow(word6),title('6');
subplot(5,7,21),imshow(word7),title('7');
I5=remove_border1(I4);%车牌去上下边框
%subplot(313),imshow(I5),title('去边框车牌');
%I5=filtering(I4);
%figure,imshow(I5),title('车牌滤波膨胀腐蚀');
% 寻找连续有文字的块，若长度大于某阈值，则认为该块有两个字符组成，需要分割
j=j+1;
end
k2=j-1;
if k2-k1>=round(n/6.5)
[val,num]=min(sum(d(:,[k1+5:k2-5])));
d(:,k1+num+5)=0; % 分割
end
end
% 再切割
d=qiege(d);
% 切割出 7 个字符
y1=10;y2=0.25;flag=0;word1=[];
c7 = strcat('hg',FileName{k});
C7 = strcat(c7,'.bmp');
imwrite(word1,C1);
imwrite(wormp');
imwrite(word3,C3);
word5=imresize(word5,[32 16])
word6=imresize(word6,[32 16])
word7=imresize(word7,[32 16])
%word8=imresize(word8,[32 16])
subplot(5,7,15),imshow(word1),title('1');
while flag==0
[m,n]=size(d);
left=1;wide=0;
while sum(d(:,wide+1))~=0
wide=wide+1;
end
if wide<y1 % 认为是左侧干扰
d(:,[1:wide])=0;
d=qiege(d);
else
temp=qiege(imcrop(d,[1 1 wide m]));
%word3 = bwmorph(word3 , 'thin' , Inf);
%word4 = bwmorph(word4 , 'thin' , Inf);
%word5 = bwmorph(word5 , 'thin' , Inf);
%word6 = bwmorph(word6 , 'thin' , Inf);
c2 = strcat('hb',FileName{k});
C2 = strcat(c2,'.bmp');
c3 = strcat('hc',FileName{k});
C3 = strcat(c3,'.bmp');
c4 = strcat('hd',FileName{k});
I3=whitebackground(I2);%背景色统一成黑底白字
I4=bwareaopen(I3,10);%形态学滤波
%figure,subplot(311),imshow(I3),title('背景色统一成黑底白字二值车牌');
%subplot(312),imshow(I4),title('中值滤波后二值车牌');
subplot(5,7,3),imshow(word3),title('3');
subplot(5,7,4),imshow(word
4),title('4');
subplot(5,7,5),imshow(word5),title('5');
%stdin标准输入
PicFormat = {'*.bmp','Bitmap image (*.bmp)';...
'*.jpg','JPEG image (*.jpg)' ;...
%字符图像大小归一化
% 商用系统程序中归一化大小为 32*16
word1=imresize(word1,[32 16])
word2=imresize(word2,[32 16])
word3=imresize(word3,[32 16])
word4=imresize(word4,[32 16])
FileName = cellstr(FileName);%n*1的cell字符数组
n = length(FileName);
for k = 1:n
I1 = imread([FilePath,FileName{k}]); %读入一幅图片
%I1=imread('dw12.bmp');
d(:,[1:wide])=0;d=qiege(d);
end
end;
% 分割出第二个字符
[word2,d]=getword(d);
% 分割出第三个字符
[word3,d]=getword(d);
% 分割出第四个字符
[word4,d]=getword(d);
% 分割出第五个字符
[word5,d]=getword(d);
[m,n]=size(temp);
all=sum(sum(temp));
two_thirds=sum(sum(temp([round(m/3):2*round(m/3)],:)));
if two_thirds/all>y2
flag=1;word1=temp; % WORD 1
end
% 分割出第六个字符
[word6,d]=getword(d);
% 分割出第七个字符
[word7,d]=getword(d);
%[word8,d]=getword(d);
subplot(5,7,1),imshow(word1),title('1');
subplot(5,7,2),imshow(word2),title('2');
if ~flag
return;%flag为0，用户取消选择，返回;
end
%将导入的图像样本名称用cell数组存储，因为导入一个图像时filename用char型存储，
%cellstr作用后变为filename用1*1的cell数组存储。导入多个图像时filename用cell存储，
%cellstr作用后不变
C4 = strcat(c4,'.bmp');