WOLFRAM

Wolfram 语言与系统参考资料中心

基于纹理的分割

使用局部纹理的方向分割一个图像并突出两个分割.

    
Wolfram Language code: gaborMagnitude[image_, r_, k_] := With[{data = ImageData[image]}, Image[GaborFilter[data, r, k, 0] ^ 2 + GaborFilter[data, r, k, Pi / 2] ^ 2]] i = [image]; λ = .4;r = 10; {t1, t2} = Table[ImageAdjust@gaborMagnitude[i, r, λ k], {k, {{1, -1}, {1, 1}}}]; ImageCompose[i, {ImageAdd@@MapThread[ImageMultiply[MorphologicalBinarize[#1], #2]&, {{t1, t2}, {Red, Green}}], .3}]