($VersionNumber < 6) 在 Mathematica 中裁剪导出的图像

Question

这是我使用 Mathematica 制作的动画。通过突出显示图像可以看出，左侧和右侧的边距都太宽。我不想仅仅为了裁剪而将图像提交到另一个程序，那么我该怎么做才能消除空白呢？

查看文档，ImageMargins 和 ImageRegion 本来就很好，只是它们仅适用于前端。那么，我该怎么办？

Answer 1

我认为您可能会发现这两篇文章很有用（尽管第一篇适用于 Mathematica 6，第二篇适用于 v.7）：

在 Mathematica 中导出像素完美图形

和

像素完美图形，重新审视。

Answer 2

尝试使用 PlotRegion< /a> 选项。

这是一个例子：

Plot[Sin[x], {x, 0, 10}, 
  Axes -> False, Frame -> True, 
  PlotRegion -> {{0.1, 0.9}, {0.1, 0.9}}]

我在执行 <

Answer 3

首先，我将尝试使用 Plot 函数的 PlotRangePadding 选项。如果表达式已经光栅化，您可以尝试如下操作：

imagelist /. Raster[a_, rest___]:> Raster[Take[#, {10, -10}]& /@ a, rest]

这应该从两侧切掉 10 个像素。 V7 中的图像处理工具非常好，如果您有能力，我认为您会发现升级是一项非常值得的投资。