mathematica 导出pdf 带中文字体乱码问题原因及其解决方案

原因：主要是字体问题导致的，从原来的样式表继承一个新的样式表。将相应部分修改为中文字体样式。导出pdf的时候选择显示屏环境Printout，并选择这个新创建的样式就可以了。

解决方案：

将这个文件保存为CHDefault.nb 添加样式表使用这个就可以了。

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1427,         47]
NotebookOptionsPosition[       945,         32]
NotebookOutlinePosition[      1323,         48]
CellTagsIndexPosition[      1280,         45]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[StyleData[StyleDefinitions -> "Default.nb"],ExpressionUUID->"f94d2a98-1970-4727-b96f-44e1f2bf922c"],

Cell[StyleData["Title"],
 FontFamily->"\:534e\:6587\:6977\:4f53",
 FontSize->45,
 FontWeight->"Plain",
 FontSlant->"Plain",
 FontVariations->{"StrikeThrough"->False,
 "Underline"->False},
 FontColor->RGBColor[
  0, 0, 1],ExpressionUUID->"54a1d47d-bfc2-40f8-9552-06abf179fccb"]
},
WindowSize->{775, 872},
WindowMargins->{{497, Automatic}, {-84, Automatic}},
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (2017\:5e749\:670810\
\:65e5)",
StyleDefinitions->"PrivateStylesheetFormatting.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 104, 0, 37, 49, 0, "StyleData", "StyleDefinitions", "",ExpressionUUID->"f94d2a98-1970-4727-b96f-44e1f2bf922c"],
Cell[665, 22, 276, 8, 105, 24, 0, "StyleData", "Title", "All",ExpressionUUID->"54a1d47d-bfc2-40f8-9552-06abf179fccb"]
}
]
*)

(* End of internal cache information *)