（$ VersionNumber＆lt; 6）在Mathematica中裁剪导出的图像

Question

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

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

Answer 1

首先，我会尝试PlotRangePadding功能的Plot选项。如果表达式已经光栅化，您可以尝试这样的事情：

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

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

Answer 2

我认为你可能会发现这两篇文章有用（虽然第一篇是 Mathematica 6，第二篇是v.7）：

Exporting Pixel-Perfect Graphics in Mathematica

和

Pixel-perfect Graphics, Revisited

Answer 3

尝试使用PlotRegion选项。

以下是一个例子：

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

我在执行<<Version5`Graphics`

后在v8中对此进行了测试