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