从低对比度图像中分割细胞

时间:2019-07-05 12:14:54

标签: wolfram-mathematica

我正在尝试从低对比度的图像中分割出细胞。我想绘制一个单元格的边框,并在原始图像上显示该边框。

图像是这个

https://drive.google.com/open?id=1_Xl7i1M6OfisTCIzjw-NAOf1sOtB7gWs

我提供了用于分割单元格的代码,但并非所有图像都能工作。 该代码似乎给出了图像中不存在的额外单元格边界。

adj = ImageAdjust[(*Image goes here*), {0.5, 0, 0.5}];
gaus = GaussianFilter[adj, {1, 3}]
bin = Binarize[gaus, FindThreshold@gaus]
DeleteSmallComponents[
 ColorNegate@Dilation[ColorNegate@bin, DiskMatrix@2], 100]
skel = Thinning[ColorNegate@%, Padding -> 1]
color = WatershedComponents[skel, CornerNeighbors -> False] // Colorize
Binarize[color, 0] // ColorNegate // DeleteSmallComponents

0 个答案:

没有答案