hough变换检测直线的matlab源程序，可直接运行

%本程序运用hough变换检测出原图像中最长的直线
%由于采用多次for循环，程序运行速度较慢
clear all;
yuantu=imread（‘yan.jpg‘‘jpg‘）;
yuantu1=rgb2gray（yuantu）;%二值化
figureimshow（yuantu1）;
title（‘原图像‘）;
pn=imnoise（yuantu1‘salt & pepper‘0.02）;
pt=imnoise（pn‘gaussian‘0.02）;
figureimshow（pt）;
title（‘加入椒盐噪声和高斯噪声‘）;
[mn]=size（pt）;
p_max=round（sqrt（m^2+n^2））;
AC_matrix=zeros（2*p_max180）;%直线标准式共线点集生成正弦曲线
for i=1:m
  for j=1:n
    if yuantu1（ij）==0
            x=j-1;
            y=m-i;
       for ii=1:2*p_max
        for a=1:180
          p=ii-p_max;
        if  abs（p-x*cos（a*pi/180）-y*sin（a*pi/180））<1;