?? matlab hough變換對圓的檢測.txt
字號:
Hough變換對圓的檢測2008年05月11日 星期日 12:57Hough變換的基本原理在于,利用點與線的對偶性,將圖像空間的線條變為參數空間的聚集點,從而檢測給定圖像是否存在給定性質的曲線。
圓的方程為:(x-a)*(x-a)+(y-b)*(y-b)=r*r ,通過Hough變換,將圖像空間(x,y)對應到(a,b,r)參數空間 。
Hough對圓的檢測程序如下:
function [hough_space,hough_circle,para] = hough_circle(BW,step_r,step_angle,r_min,r_max,p)
% %%%%%%%%%%%%%%%%%%%%%%%%%%
% input
% BW:二值圖像;
% step_r:檢測的圓半徑步長
% step_angle:角度步長,單位為弧度
% r_min:最小圓半徑
% r_max:最大圓半徑
% p:以p*hough_space的最大值為閾值,p取0,1之間的數
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% output
% hough_space:參數空間,h(a,b,r)表示圓心在(a,b)半徑為r的圓上的點數
% hough_circl:二值圖像,檢測到的圓
% para:檢測到的圓的圓心、半徑
[m,n] = size(BW);
size_r = round((r_max-r_min)/step_r)+1;
size_angle = round(2*pi/step_angle);
hough_space = zeros(m,n,size_r);
[rows,cols] = find(BW);
ecount = size(rows);
% Hough變換
% 將圖像空間(x,y)對應到參數空間(a,b,r)
% a = x-r*cos(angle)
% b = y-r*sin(angle)
for i=1:ecount
for r=1:size_r
for k=1:size_angle
a = round(rows(i)-(r_min+(r-1)*step_r)*cos(k*step_angle));
b = round(cols(i)-(r_min+(r-1)*step_r)*sin(k*step_angle));
if(a>0&a<=m&b>0&b<=n)
hough_space(a,b,r) = hough_space(a,b,r)+1;
end
end
end
end
% 搜索超過閾值的聚集點
max_para = max(max(max(hough_space)));
index = find(hough_space>=max_para*p);
length = size(index);
hough_circle=zeros(m,n);
for i=1:ecount
for k=1:length
par3 = floor(index(k)/(m*n))+1;
par2 = floor((index(k)-(par3-1)*(m*n))/m)+1;
par1 = index(k)-(par3-1)*(m*n)-(par2-1)*m;
if((rows(i)-par1)^2+(cols(i)-par2)^2<(r_min+(par3-1)*step_r)^2+5&...
(rows(i)-par1)^2+(cols(i)-par2)^2>(r_min+(par3-1)*step_r)^2-5)
hough_circle(rows(i),cols(i)) = 1;
end
end
end
% 打印結果
for k=1:length
par3 = floor(index(k)/(m*n))+1;
par2 = floor((index(k)-(par3-1)*(m*n))/m)+1;
par1 = index(k)-(par3-1)*(m*n)-(par2-1)*m;
par3 = r_min+(par3-1)*step_r;
fprintf(1,'Center %d %d radius %d\n',par1,par2,par3);
para(:,k) = [par1,par2,par3];
end
運行如下程序:
clc,clear all
I = imread('2.bmp');
[m,n,l] = size(I);
if l>1
I = rgb2gray(I);
end
BW = edge(I,'sobel');
step_r = 1;
step_angle = 0.1;
minr = 20;
maxr = 30;
thresh = 0.7;
[hough_space,hough_circle,para] = hough_circle(BW,step_r,step_angle,minr,maxr,thresh);
subplot(221),imshow(I),title('原圖')
subplot(222),imshow(BW),title('邊緣')
subplot(223),imshow(hough_circle),title('檢測結果')
運行結果如下:
Center 60 27 radius 20
Center 61 27 radius 20
Center 62 27 radius 20
Center 63 27 radius 20
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -