function [x,a,bw,r]=delt(a)
%對交通標(biāo)志
%i為輸入圖像
%x為提取的特征

bw=rgb2gray(a);  %將彩色圖像灰度化

for i=1:32
  for j=1:32
   if bw(i,j)>130
     bw(i,j)=0;
    else
    bw(i,j)=1;
    end
   end
   end       %二值化

    bw=double(bw);
    k=mat2gray(bw);
r=hgtrans(k,32,32); % Hough變換
r1=r;

for i=1:32
  for j=1:32
     if r1(i,j)<=30 
        r1(i,j)=0;
   else
         r1(i,j)=r1(i,j); 
  end
 end
end         %判斷直線的個數(shù)

x=sum(r1);   %對theta軸投影

ma=max(x);
if ma<100
for i=1:32
  if x(i)>31 
     x(i)=1;
  else x(i)=0;
  end
end             %提取特征

else 
   bw1=zeros(32);
   for i=1:32
    for j=1:32
    if bw(i,j)==1
     bw1(i,j)=0;
    else
    bw1(i,j)=1;
    end
   end
   end  %重新二值化

   bw1=double(bw1);
k=mat2gray(bw1);
r1=hgtrans(k,32,32);  %Hough變化

for i=1:32
  for j=1:32
     if r1(i,j)<=30 
        r1(i,j)=0;
   else
      r1(i,j)=r1(i,j);
  end
 end
end

x=sum(r1);
ma=max(x);mi=min(x);
u=(ma+mi)*0.53;
u=round(u);  
      
  for i=1:32
  if x(i)>u 
     x(i)=1;
     else x(i)=0;
   end
end      
end      %特征提取