我可以在 Mathematica 8 中更改导出为 pdf 设置吗？

Question

我正在使用 Mathematica 绘制我需要的一些图形，然后在 Latex 中将它们用作 pdf。

问题是 Mathematica 使用 Acrobat 5.x 设置兼容性导出数字，我认为这会导致数字很大且未优化，当我在最终的 pdf 中包含几个数字时，有时仅打印一个就需要几分钟最终文件的页面。

有没有办法在 Mathematica 中更改 pdf 的输出设置？ 我是否应该导出为 pdf、转换为 postscripts，然后使用新设置从 .ps 创建新的 pdf？ 我应该导出 .eps 并转换为 pdf 吗？ 有没有一种通过 Mathematica 创建优化 pdf 的一步方法？

快速示例（有点夸张，因此差异非常明显）：我从 Mathematica 导出的 pdf (Export["C:/figure.pdf", %]) 大小为 1065kb，.pdf ->.ps -> ;.pdf 给出了 652kb 的最终文件，.eps->.pdf 给出了 610kb 的文件。 我不会在乳胶中使用任何这些，但它显示了设置的差异。

Answer 1

pdf->ps->pdf 总是会为您提供较小的文件大小，这是一个神话。例如，考虑

（在mathematica中）

fileName = "test.pdf";
p = DensityPlot[Sin[x] Sin[y], {x, -4, 4}, {y, -3, 3}];
Export[fileName, p];

（在shell中）

pdf2ps test.pdf && ps2pdf test.ps test1.pdf

test.pdf是446kB，而test1.pdf 在我的机器上有 11.5MB 之大！

通常发生的情况是，当您使用 Mathematica 导出 PDF 文件时，它会存储文本（轴刻度线、标签等）、字体和图像，所有这些都会添加到文件中。如果您的矢量图形带有大量刻度线/标签，那么这些标记可能非常重要。执行 pdf->ps->pdf 将删除文件中的字体数据和文本数据，同时压缩图像，这就是您看到文件大小减小的原因。虽然在小放大倍数下无法观察到，但当您放大相当大的尺寸时，您会注意到差异。例如，将 p 替换为

p = Plot[Sin[t], {t, 0, 2 Pi}];

在我的机器上生成 test.pdf 的 37kB 文件和 test1.pdf 的 8kB 文件。 8kb 文件的质量比原始文件差（缩放至 600%+ 即可显示这一点）。您可以通过执行以下操作来查看mathematica存储在PDF文件中的纯文本信息。

Import[fileName,"Plaintext"]

但是，对于更复杂的PDF文件，转换为ps然后返回pdf并不一定是不错的选择，可能会导致文件大小增大。

您可以尝试使用Export中的PDF选项，例如“AllowRasterization”和ImageResolution，甚至可以在保存之前对图像进行光栅化，但是我想你已经知道了。

这是一种在mathematica 中减少文件大小的快速而肮脏的方法

Export[fileName, First@Import@Export[fileName, p]]

文件大小现在只有12kB！它只有原始文件的三分之一，仅比从 pdf->ps->pdf 获得的文件稍大一点，并且质量比 8kB 的文件好得多（尽管与 pdf->ps->pdf 的文件质量不完全相同）在放大 1200% 及以上时可以看到差异）。

发生的情况是，在导入和重新导出时，仅保存存储的图像。它的纯文本部分被丢弃，在这个小例子中，这恰好很重要。对于 DensityPlot 示例，仅减少到 425kB（仍然是下降而不是增加到 11MB）。