%?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