function[l]= Gray(I) % I: The name of image
A=imread(I);
m=0;
n=0;
[m,n]= size(A);
Hproj=zeros(m,1);
Vproj=zeros(1,n);
for h=1:m
Hproj(h) = sum(A(h,:));
end;
%hf=figure('NumberTitle','off','name','水平 ');
%水平
Hproj=Hproj';
Hproj=mapminmax(Hproj,0,1);
%Hproj=Hproj';
%title('水平');
subplot(3,1,1);
plot(Hproj);
grid on;
for v=1:n
Vproj(v) = sum(A(:,v));
end;
%vf=figure('NumberTitle','off','name','垂直 ');
%垂直
Vproj=mapminmax(Vproj,0,1);
subplot(3,1,2);
plot(Vproj);
grid on;
%显示样本
subplot(3,1,3);
imshow(A);
[y,l]=min(Hproj);
[m,n]=size(A);
if l<(m/2)
disp('K');
else
disp('B');
end