wolfram-mathematica - EPS 数据中的不透明度

Question

在 Mathematica 中保存图形时，是否可以以 EPS 格式保存不透明的图形？例如，

Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, 
 Filling -> Axis]

给出了下图，它以 EPS 以外的任何格式整齐地保存。



如果我尝试保存到 EPS(在 Mathematica 7 中)，结果看起来像



在 Mathematica 8 中，它看起来像



有谁知道如何在 EPS 图中获得不透明度(或者如果这可能)？ “使用光栅化实现透明度”选项在缩放时看起来不像真正的 EPS 那样令人印象深刻。

Answer 1

在这种情况下，我通常会光栅化我的图形。尝试

Rasterize[Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]],
  {x, 0, 10}, Filling -> Axis], RasterSize -> 600, ImageSize -> 400]

当然，结果将不可扩展，并且会占用更多内存。您可以通过将 RasterSize 设置为大于 ImageSize 来部分解决可伸缩性问题，就像我在这里所做的那样。