我们正在尝试在Mathematica中执行以下操作: RMagick从图像中删除白色背景,并使其透明 但是,实际的照片最终看起来很糟糕(就像在图像周围有一个光环)。 以下是我们到目前为止的尝试: unground0[img_] := With[{mask = ChanVeseBinarize[img, TargetColor->{1.,1.,1.}]}, Rasterize[SetAlphaChannel[img, ImageApply[1-#&, mask]], Background->None]]] 这是一个例子。 原始图像: 用白色背景replace没有背景的图像(或者为了演示的目的,这里是粉色背景): 任何想法摆脱这个光环? 调整LevelPenalty之类的东西,我只能让光环消失,而不惜损失一些图像。 编辑:所以我可以比较解决scheme的赏金,请像上面那样构build你的解决scheme,即一个名为unground的自包含的函数 – 东西,需要一个图像,并返回一个图像的透明背景。 非常感谢大家!