WOLFRAM

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

画像の焦点部分を抽出する

Wolfram Language code: image = [image];
Wolfram Language code: (blurDiff = ImageDifference[image, Blur[image, 2]])//ImageAdjust
Wolfram Language code: edges = EdgeDetect[blurDiff, 1]
Wolfram Language code: edges = EdgeDetect[blurDiff, 1]
Wolfram Language code: dilation = Dilation[edges, 1]
Wolfram Language code: filled = FillingTransform[dilation]
Wolfram Language code: b = Erosion[filled, 1]
セグメンテーションをきれいにする：
Wolfram Language code: skel = SkeletonTransform[b]
Wolfram Language code: b2 = InverseDistanceTransform@ImageMultiply[skel, Binarize[skel, 2]]
Wolfram Language code: mask = DeleteSmallComponents[b2]
アルファチャンネルを設定する：
Wolfram Language code: SetAlphaChannel[image, mask]