相关疑难解决方法(0)

有时候导出到pdf图像简直很麻烦.如果您绘制的数据包含许多点,那么您的数字将会很大,您选择的pdf查看器将花费大部分时间来渲染这个高质量的图像.因此,我们可以将此图像导出为jpeg,png或tiff.从某个视图来看图片会很好但是当你放大时它看起来会变形.对于我们正在绘制的图形,这在某种程度上是很好的,但如果您的图像包含文本,那么此文本将看起来像素化.

为了尝试两全其美,我们可以将这个图分成两部分:带标签的轴和3D图片.因此,轴可以导出为pdf或eps,3D图形可以导出为栅格.我希望我知道后来如何将这两者结合在Mathematica中,所以目前我们可以使用矢量图形编辑器(如Inkscape或Illustrator)来组合这两者.

我设法实现了这个我在出版物中制作的情节,但这促使我在Mathematica中创建例程以自动化这个过程.这是我到目前为止:

SetDirectory[NotebookDirectory[]];
SetOptions[$FrontEnd, PrintingStyleEnvironment -> "Working"];

我喜欢通过将工作目录设置为notebook目录来启动笔记本.由于我希望我的图像具有我指定的大小,因此我将打印样式环境设置为工作,请查看此信息以获取更多信息.

in = 72;
G3D = Graphics3D[
  AlignmentPoint -> Center,
  AspectRatio -> 0.925,
  Axes -> {True, True, True},
  AxesEdge -> {{-1, -1}, {1, -1}, {-1, -1}},
  AxesStyle -> Directive[10, Black],
  BaseStyle -> {FontFamily -> "Arial", FontSize -> 12},
  Boxed -> False,
  BoxRatios -> {3, 3, 1},
  LabelStyle -> Directive[Black],
  ImagePadding -> All,
  ImageSize -> 5 in,
  PlotRange -> All,
  PlotRangePadding -> None,
  TicksStyle -> Directive[10],
  ViewPoint -> {2, -2, 2}, …