在 Mathematica 中保存图形时，是否可以以 EPS 格式保存不透明的图形？例如，
Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10},
Filling -> Axis]
给出了下图，它以 EPS 以外的任何格式整齐地保存。
如果我尝试保存到 EPS(在 Mathematica 7 中)，结果看起来像
在 Mathematica 8 中，它看起来像
有谁知道如何在 EPS 图中获得不透明度(或者甚至可能)？ “使用光栅化透明度”选项在缩放时看起来不像真正的 EPS 那样令人印象深刻。
最佳答案
在这种情况下，我通常会光栅化我的图形。尝试
Rasterize[Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]],
{x, 0, 10}, Filling -> Axis], RasterSize -> 600, ImageSize -> 400]
当然，结果不会是可扩展的，会占用更多的内存。您可以通过将 RasterSize 设置为大于 ImageSize 来部分解决可伸缩性问题，就像我在这里所做的那样。
关于wolfram-mathematica - EPS 数字的不透明度，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/5415459/