close all
clear all
%1.预处理,灰度化,边缘检测,形态学填充,找出最大矩形,标记其坐标。
%2.选取感兴趣区域的元素,并将答案变成白色矩形。
%3. 利用for循环去噪识别答案
I=imread([‘试题.jpg’]);
gray=rgb2gray(I);
bw=im2bw(gray);imshow(bw)
f=edge(gray,‘canny’,[0,0.1]);
figure;imshow(f);title(‘canny’)
SE = strel(‘disk’,5);
F= imclose(f,SE);%图像
[L n]= bwlabeln(F,8);
S = regionprops(L, ‘Area’);
area=sort([S.Area],‘descend’);
G= ismember(L, find([S.Area] >=area(1)));
figure;imshow(G);title(‘试题’)
stats=regionprops(G,‘BoundingBox’);
rect=stats.BoundingBox;
[r,c]=size(bw);
roi=zeros(r,c);
for i=floor(rect(2):rect(2)+rect(4)-1)
for j=floor(rect(1):rect(1)+rect(3))
roi(i,j)=bw(i,j);
end
end
imshow(~roi)
target=(bwareaopen(~roi,90)); imshow( target)%去除面积低于90的小噪声
choos=[‘ABCD’];
% 利用for循环去噪识别答案
for i=1:35
for j=1:4
% imshow(target(330+18*(i-1):330+18i,50:155))
tt= bwareaopen(target(330+18(i-1):330+18i,50+160(j-1):155+160*(j-1)),90);%防止截取的不均匀有碎片
stat=regionprops(tt,‘Centroid’,‘BoundingBox’);
if ~isempty(stat)
if stat.BoundingBox(3)<20%小矩形的高度小于20,长片的字是大于20的。
Answer(i,j)=choos( round(stat.Centroid(1)/26));%质心横坐标除26宽度,获取答案的索引位置
else
Answer(i,j)= ‘N’;
end
end
end
end