Wolfram mathematica 在列表中保存打印选项

我想知道是否有可能为Show[]函数创建一个保存信息的变量。因此，每当我想在Show[]中显示绘图时，我将在Show[]中插入该变量以设置样式选项

我想要这样的东西

OPTIONS=
     AxesOrigin -> Automatic,
     LabelStyle -> Directive[14, Black, Bold, Italic],
     ImageSize -> {450}

    Show[
     ListLinePlot[data],
     OPTIONS
     ]

解决方案很简单，但我是绿色的。：）

---

适用于我。

您可以使用

$Post

自动将

显示

选项应用于图形，例如

$Post := With[{opts = {
     AxesOrigin -> Automatic,
     LabelStyle -> Directive[14, Black, Bold, Italic],
     ImageSize -> {250}}},
  If[Head[#] === Graphics, Show[#, opts], #] &]

ListLinePlot[{1, 2, 3, 4, 5}]

将

$Post

还原为默认值：

$Post =.

---

谢谢，我不知道该怎么处理“，”：）

$Post =.