用霍夫曼方法检测圆、直线

用霍夫曼方法检测圆、直线，输入图片，可以检测到圆和直线的数量，经典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‘）;
    fi

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

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

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

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

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

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

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

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

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

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

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

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

     目录          0  2009-04-29 10:04  用霍夫曼方法检测圆、直线

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

               173526                    12