hough 检测直线、圆形matlab代码

hough变换实现圆形、直线检测的matlab源代码

% clear all; close all; clc;
function [ncirst]=circle_product
ncir=ones（300300）;
[mn]=size（ncir）;
center=[0 0];%x=（b-a）*r + a
center（1）=round（（（0.6-0.5）*rand+0.5）*m）;%y
center（2）=round（（（0.6-0.5）*rand+0.5）*n）;%x
ol=ones（15）;ol（1）=abs（center（1）-1）;ol（2）=abs（center（1）-m）;ol（3）=abs（center（2）-1）;ol（4）=abs（center（2）-n）;
for i=1:1:4
    if ol（i）<=ol（i+1）
        ol（5）=ol（i）;
        ol（i）=ol（i+1）;
        ol（i+1）=ol（5）;
    end
    ol（5）=ol（i+1）;
end
r=round（ol（5）*（3/4））;
for k1=1:1:m
    for k2=1:1:n
       xxx=k2-1;yyy=m+1-k1;
       if abs（（（xxx-center（2））*（xxx-center（2））+（yyy-center（1））*（yyy-center（1）））-r*r）<=101
           ncir（k1k2）=0;
       end
    end
end
imwrite（ncir‘E:\MATLAB6p5\work\circle.bmp‘‘bmp‘）;
i2=imread（‘E:\MATLAB6p5\work\circle.bmp‘）;
    figure;
    imshow（i2）;
    st=[center（2）center（1）r]

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

    .CA....     12062  2007-11-20 22:17  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\circle1.bmp

    .CA....       854  2007-11-20 00:41  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\circle_product.m

    .CA....      2587  2007-11-20 22:45  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\circle_try.m

    .CA....      2669  2007-11-20 22:44  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\circle_try_hu.m

    .CA....       294  2007-11-19 19:53  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\gather_point.m

    .CA....      1797  2007-11-19 23:46  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\machZ_try.m

    .CA....       256  2007-11-17 00:33  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\pll.m

    .CA....       511  2007-11-20 22:49  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\the_max1.m

    .CA....     91078  2007-11-20 21:54  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\找出的圆.bmp

    .CA....     64462  2007-11-21 21:14  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\找出的直线.bmp

    .CA....        60  2007-11-20 21:54  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\新建 文本文档.txt

    .CA....      8958  2007-11-19 23:45  复件 Hough_用霍夫曼方法检测圆、直线 Matlab\直线在其中.bmp

    .C.D...         0  2009-03-11 15:16  复件 Hough_用霍夫曼方法检测圆、直线 Matlab

----------- ---------  ---------- -----  ----

               185588                    13