我认为您的方法存在根本问题。您的算法用于stdfilt
对图像进行二值化。但这本质上意味着你假设背景和单元格内的“纹理”很低。这适用于您的第一张图片。但是,在您的第二张图片中,单元格内有一个“纹理”,所以这个假设被打破了。
我认为一个更强有力的假设是每个单元格周围都有一个“环”(对您发布的两个图像都有效)。所以我采取了检测这个环的方法。
所以我的方法本质上是:
- 检测这些环(我使用“对数”过滤器,然后根据正值进行二值化。但是,这会导致很多“喋喋不休”
- 尝试通过过滤掉非常小和非常大的区域来消除一些“喋喋不休”
- 现在,填写这些环。但是,单元格之间仍然存在一些“颤动”和填充区域
- 同样,删除大小区域,但由于单元格已填充,因此增加可接受的范围。
- 仍然有一些坏区域,大部分坏区域将是单元之间的区域。通过观察区域边界周围的曲率可以检测细胞之间的区域。它们“向内弯曲”很多,这在数学上表示为边界的大部分具有负曲率。此外,为了消除其余的“颤振”,这些区域的边界曲率会有很大的标准偏差,因此也要删除标准偏差较大的边界。
总体而言,最困难的部分将是在不删除实际单元格的情况下删除单元格和“颤振”之间的区域。
无论如何,这是代码(请注意,有很多启发式方法,而且它非常粗糙,并且基于来自旧项目、家庭作业和 stackoverflow 答案的代码,所以它肯定远未完成):
cell = im2double(imread('cell1.png'));
if (size(cell,3) == 3)
cell = rgb2gray(cell);
end
figure(1), subplot(3,2,1)
imshow(cell,[]);
% Detect edges
hw = 5;
cell_filt = imfilter(cell, fspecial('log',2*hw+1,1));
subplot(3,2,2)
imshow(cell_filt,[]);
% First remove hw and filter out noncell hws
mask = cell_filt > 0;
hw = 5;
mask = mask(hw:end-hw-1,hw:end-hw-1);
subplot(3,2,3)
imshow(mask,[]);
rp = regionprops(mask, 'PixelIdxList', 'Area');
rp = rp(vertcat(rp.Area) > 50 & vertcat(rp.Area) < 2000);
mask(:) = false;
mask(vertcat(rp.PixelIdxList)) = true;
subplot(3,2,4)
imshow(mask,[]);
% Now fill objects
mask1 = true(size(mask) + hw);
mask1(hw+1:end, hw+1:end) = mask;
mask1 = imfill(mask1,'holes');
mask1 = mask1(hw+1:end, hw+1:end);
mask2 = true(size(mask) + hw);
mask2(hw+1:end, 1:end-hw) = mask;
mask2 = imfill(mask2,'holes');
mask2 = mask2(hw+1:end, 1:end-hw);
mask3 = true(size(mask) + hw);
mask3(1:end-hw, 1:end-hw) = mask;
mask3 = imfill(mask3,'holes');
mask3 = mask3(1:end-hw, 1:end-hw);
mask4 = true(size(mask) + hw);
mask4(1:end-hw, hw+1:end) = mask;
mask4 = imfill(mask4,'holes');
mask4 = mask4(1:end-hw, hw+1:end);
mask = mask1 | mask2 | mask3 | mask4;
% Filter out large and small regions again
rp = regionprops(mask, 'PixelIdxList', 'Area');
rp = rp(vertcat(rp.Area) > 100 & vertcat(rp.Area) < 5000);
mask(:) = false;
mask(vertcat(rp.PixelIdxList)) = true;
subplot(3,2,5)
imshow(mask);
% Filter out regions with lots of positive concavity
% Get boundaries
[B,L] = bwboundaries(mask);
% Cycle over boundarys
for i = 1:length(B)
b = B{i};
% Filter boundary - use circular convolution
b(:,1) = cconv(b(:,1),fspecial('gaussian',[1 7],1)',size(b,1));
b(:,2) = cconv(b(:,2),fspecial('gaussian',[1 7],1)',size(b,1));
% Find curvature
curv_vec = zeros(size(b,1),1);
for j = 1:size(b,1)
p_b = b(mod(j-2,size(b,1))+1,:); % p_b = point before
p_m = b(mod(j,size(b,1))+1,:); % p_m = point middle
p_a = b(mod(j+2,size(b,1))+1,:); % p_a = point after
dx_ds = p_a(1)-p_m(1); % First derivative
dy_ds = p_a(2)-p_m(2); % First derivative
ddx_ds = p_a(1)-2*p_m(1)+p_b(1); % Second derivative
ddy_ds = p_a(2)-2*p_m(2)+p_b(2); % Second derivative
curv_vec(j+1) = dx_ds*ddy_ds-dy_ds*ddx_ds;
end
if (sum(curv_vec > 0)/length(curv_vec) > 0.4 || std(curv_vec) > 2.0)
L(L == i) = 0;
end
end
mask = L ~= 0;
subplot(3,2,6)
imshow(mask,[])
输出1:
![在此处输入图像描述](https://i.stack.imgur.com/UDLbw.jpg)
输出2:
![在此处输入图像描述](https://i.stack.imgur.com/FlQD2.jpg)