function [fre]=Val_ri_Fre(image)
% level=graythresh(image);
% tem_bw=(im2bw(image,level));
tem_bw=derection_bw(image);%ֵ
tem_bw=bwmorph(tem_bw,'thin',inf);
n=0;
x=size(tem_bw,1);
y=size(tem_bw,2);
for i=1:x
     for j=1:y
         if tem_bw(i,j)==0
            n=n+1;I=1;                
          while ((j+I)<=256)&&(tem_bw(i,(j+I))==1)
            I=I+1;
          end
          N(n)=I;
         end
     end
end
locate=N<=4;
N(locate)=[];
locate=N>=30;
N(locate)=[];
fre1=mode(N);
locate=(N==fre1);
N(locate)=[];
fre2=mode(N);
locate=(N==fre2);
N(locate)=[];
fre3=mode(N);
% locate=(N==fre3);
% N(locate)=[];
% fre4=mode(N);
% locate=(N==fre4);
% N(locate)=[];
% fre5=mode(N);
% fre=ceil((fre1+fre2+fre3+fre4+fre5)/5);
fre=ceil(fre1+fre2+fre3)/3;
end