WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

テクスチャベースのセグメンテーション

画像をその局所テクスチャの方向を使ってセグメント化し，2つのセグメントをハイライトする．

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}]