詳解基于Matlab的空心散點檢測
更新時間：2022年02月28日 11:37:54 作者：slandarer
這篇文章主要介紹了如何利用Matlab實現(xiàn)空心散點檢測，文中的示例代碼講解詳細，對我們學習Matlab有一定的幫助，感興趣的可以跟隨小編了解一下
問題描述
有一張這樣的圖片，如何提取里面的紅色圈圈坐標，并且連接這些坐標形成兩個封閉的環(huán)路？
過程展示
圖像導入
oriPic=imread('test1.png');
subplot(2,2,1)
imshow(oriPic)依據(jù)RGB值圖像二值化
原理就是圖中顏色種類比較少，只有紅黑白，而紅色和白色都是R通道數(shù)值較大，因此我們可以利用這一點進行圖像分割
% 刪除紅色外的部分并構(gòu)造二值圖 grayPic=rgb2gray(oriPic); grayPic(oriPic(:,:,1)<250)=255; grayPic(grayPic<250)=0; %subplot(2,2,2) figure imshow(grayPic)
圖像腐蝕
對于白色來說是腐蝕，對于黑色來說是膨脹，這一步是為了讓那些有缺口的小圓圈將缺口補起來
% 圖像膨脹，使未連接邊緣連接 SE=[0 1 0;1 1 1;0 1 0]; bwPic=imerode(grayPic,SE); figure imshow(bwPic)
圖像邊緣清理
就是把和邊緣連接的不被黑色包圍的區(qū)域變成黑色：
% 邊緣清理：保留圓圈聯(lián)通區(qū)域 bwPic=imclearborder(bwPic); %subplot(2,2,3) figure imshow(bwPic)
聯(lián)通區(qū)域查找與坐標均值計算
現(xiàn)在每一個白點都是一個坐標區(qū)域，我們檢測所有聯(lián)通區(qū)域并計算各個區(qū)域的重心即可：
% 獲取每一個聯(lián)通區(qū)域
[LPic,labelNum]=bwlabel(bwPic);
% 計算每一個聯(lián)通區(qū)域 坐標均值
pointSet=zeros(labelNum,2);
for i=1:labelNum
[X,Y]=find(LPic==i);
Xmean=mean(X);
Ymean=mean(Y);
pointSet(i,:)=[Xmean,Ymean];
end
% 畫個圖展示一下
%subplot(2,2,4)
figure
imshow(bwPic)
hold on
scatter(pointSet(:,2),pointSet(:,1),'r','LineWidth',1)
可以看出定位結(jié)果還是非常準確的：
圈查找
就以一個點開始不斷找最近的點唄，沒啥好說的：
n=1;
while ~isempty(pointSet)
circleSetInd=1;
for j=1:length(pointSet)
disSet=sqrt(sum((pointSet-pointSet(circleSetInd(end),:)).^2,2));
[~,ind]=sort(disSet);
ind=ind(1:5);
[~,~,t_ind]=intersect(circleSetInd,ind);
ind(t_ind)=[];
if ~isempty(ind)
circleSetInd=[circleSetInd;ind(1)];
else
circleSet{n}=pointSet(circleSetInd,:);
pointSet(circleSetInd,:)=[];
n=n+1;
break
end
end
end
figure
imshow(oriPic)
hold on
for i=1:n-1
plot(circleSet{i}(:,2),circleSet{i}(:,1),'LineWidth',2)
end
這效果就很美滋滋：
完整代碼
function redPnt
oriPic=imread('test1.png');
%subplot(2,2,1)
figure
imshow(oriPic)
% 刪除紅色外的部分并構(gòu)造二值圖
grayPic=rgb2gray(oriPic);
grayPic(oriPic(:,:,1)<250)=255;
grayPic(grayPic<250)=0;
%subplot(2,2,2)
figure
imshow(grayPic)
% 圖像膨脹，使未連接邊緣連接
SE=[0 1 0;1 1 1;0 1 0];
bwPic=imerode(grayPic,SE);
figure
imshow(bwPic)
% 邊緣清理：保留圓圈聯(lián)通區(qū)域
bwPic=imclearborder(bwPic);
%subplot(2,2,3)
figure
imshow(bwPic)
% 獲取每一個聯(lián)通區(qū)域
[LPic,labelNum]=bwlabel(bwPic);
% 計算每一個聯(lián)通區(qū)域 坐標均值
pointSet=zeros(labelNum,2);
for i=1:labelNum
[X,Y]=find(LPic==i);
Xmean=mean(X);
Ymean=mean(Y);
pointSet(i,:)=[Xmean,Ymean];
end
%subplot(2,2,4)
figure
imshow(bwPic)
hold on
scatter(pointSet(:,2),pointSet(:,1),'r','LineWidth',1)
n=1;
while ~isempty(pointSet)
circleSetInd=1;
for j=1:length(pointSet)
disSet=sqrt(sum((pointSet-pointSet(circleSetInd(end),:)).^2,2));
[~,ind]=sort(disSet);
ind=ind(1:5);
[~,~,t_ind]=intersect(circleSetInd,ind);
ind(t_ind)=[];
if ~isempty(ind)
circleSetInd=[circleSetInd;ind(1)];
else
circleSet{n}=pointSet(circleSetInd,:);
pointSet(circleSetInd,:)=[];
n=n+1;
break
end
end
end
figure
imshow(oriPic)
hold on
for i=1:n-1
plot(circleSet{i}(:,2),circleSet{i}(:,1),'LineWidth',2)
end
end
其它形狀空心散點檢測
來波正方形試試：
可以看出效果還是很棒的，當然大家可以根據(jù)實際情況自行更改圖像腐蝕模板形狀，如果散點是其它顏色請自行更改第一步的圖像分割條件。
后注：
若是因為點較為密集而導致圈形路徑內(nèi)部白色區(qū)域沒被清除，可能會將內(nèi)部區(qū)域也算作散點造成錯誤，解決方法是計算每個聯(lián)通區(qū)域面積并剔除遠遠大于區(qū)域面積中位數(shù)的聯(lián)通區(qū)域：
問題出現(xiàn)原因的圖片描述：
如圖所示種間那一大片區(qū)域也被算作散點
更改后代碼如下：
function redPnt
oriPic=imread('test2.png');
figure
imshow(oriPic)
% 刪除紅色外的部分并構(gòu)造二值圖
grayPic=rgb2gray(oriPic);
grayPic(oriPic(:,:,1)<250)=255;
grayPic(grayPic<250)=0;
figure
imshow(grayPic)
% 圖像膨脹，使未連接邊緣連接
SE=[0 1 0;1 1 1;0 1 0];
bwPic=imerode(grayPic,SE);
figure
imshow(bwPic)
% 邊緣清理：保留圓圈聯(lián)通區(qū)域
bwPic=imclearborder(bwPic);
figure
imshow(bwPic)
% 獲取每一個聯(lián)通區(qū)域
[LPic,labelNum]=bwlabel(bwPic);
% 篩掉超大區(qū)域
pointSizeSet=zeros(1,labelNum);
for i=1:labelNum
pointSizeSet(i)=sum(sum(LPic==i));
end
[~,ind]=find(pointSizeSet>10*median(pointSizeSet));
% 計算每一個聯(lián)通區(qū)域 坐標均值
pointSet=zeros(labelNum,2);
for i=1:labelNum
[X,Y]=find(LPic==i);
Xmean=mean(X);
Ymean=mean(Y);
pointSet(i,:)=[Xmean,Ymean];
end
pointSet(ind,:)=[];
figure
imshow(bwPic)
hold on
scatter(pointSet(:,2),pointSet(:,1),'r','LineWidth',1)
n=1;
while ~isempty(pointSet)
circleSetInd=1;
for j=1:length(pointSet)
disSet=sqrt(sum((pointSet-pointSet(circleSetInd(end),:)).^2,2));
[~,ind]=sort(disSet);
ind=ind(1:min(5,length(ind)));
[~,~,t_ind]=intersect(circleSetInd,ind);
ind(t_ind)=[];
if ~isempty(ind)
circleSetInd=[circleSetInd;ind(1)];
else
circleSet{n}=pointSet(circleSetInd,:);
pointSet(circleSetInd,:)=[];
n=n+1;
break
end
end
end
figure
imshow(oriPic)
hold on
for i=1:n-1
plot(circleSet{i}(:,2),circleSet{i}(:,1),'LineWidth',2)
end
end
注：
2016版本及以前可能這句：
disSet=sqrt(sum((pointSet-pointSet(circleSetInd(end),:)).^2,2));
會出現(xiàn)數(shù)組大小不匹配問題，可以將其改為：
tempMat=repmat(pointSet(circleSetInd(end),:),[size(pointSet,1),1]); disSet=sqrt(sum((pointSet-tempMat).^2,2));
以上就是詳解基于Matlab的空心散點檢測的詳細內(nèi)容，更多關(guān)于Matlab空心散點檢測的資料請關(guān)注腳本之家其它相關(guān)文章！
相關(guān)文章
這篇文章主要介紹了c++仿函數(shù)和函數(shù)適配器的使用詳解，具有很好的參考價值，希望對大家有所幫助。一起跟隨小編過來看看吧2020-12-12
C++動態(tài)規(guī)劃算法實現(xiàn)矩陣鏈乘法
動態(tài)規(guī)劃算法通常用于求解具有某種最優(yōu)性質(zhì)的問題。在這類問題中，可能會有許多可行解。每一個解都對應(yīng)于一個值，我們希望找到具有最優(yōu)值的解2022-06-06
又是一年七夕節(jié)要到了,每年一次直男審美MATLAB繪圖大賽開始了,于是今年對我之前寫的老代碼進行了點優(yōu)化組合,整了個花球變花束,感興趣的小伙伴可以動手試一試2023-08-08
C語言宏定義結(jié)合全局變量的方法實現(xiàn)單片機串口透傳模式
今天小編就為大家分享一篇關(guān)于C語言宏定義結(jié)合全局變量的方法實現(xiàn)單片機串口透傳模式，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧2018-12-12
C語言動態(tài)規(guī)劃點殺dp算法LeetCode炒股習題案例解析
這篇文章主要介紹為了C語言動態(tài)規(guī)劃點殺dp算法，本文以LeetCode炒股習題案例來為大家進行詳細解析，有需要的朋友可以借鑒參考下，希望能夠有所幫助2022-02-02
這篇文章主要介紹了C++中指針和引用的區(qū)別，文中通過示例代碼介紹的非常詳細，對大家的學習或者工作具有一定的參考學習價值，需要的朋友們下面隨著小編來一起學習學習吧2019-04-04
這篇文章主要介紹了C語言中的文件操作詳解，使用文件可以將數(shù)據(jù)直接存放到電腦的硬盤上，做到了數(shù)據(jù)的持久化2022-07-07
const定義的全局數(shù)據(jù)變量，其基本作用和define相同，但又在define的基礎(chǔ)上增加了好多功能2013-10-10
C++實現(xiàn)將圖片轉(zhuǎn)換為馬賽克效果的示例代碼
這篇文章主要為大家詳細介紹了C++如何實現(xiàn)將圖片轉(zhuǎn)換為馬賽克效果，文中的示例代碼講解詳細，具有一定的借鑒價值，感興趣的小伙伴可以了解一下2023-01-01
下面小編就為大家?guī)硪黄胋oost獲取時間并格式化的方法。小編覺得挺不錯的，現(xiàn)在就分享給大家，也給大家做個參考。一起跟隨小編過來看看吧2017-03-03