Mathematica学习

发表于 | 分类于
  • 在Mathematica中永久性修改输入和输出字体.

修改输入输出字体

Mathematica 自带的修改字体功能似乎并没有什么用……如果想修改的话，需要手动运行代码修改。代码分为两部分

函数定义

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
setFont[fontFamily_, fontSize_] := With[
    {
        styleNB = Notebook[
            {
                Cell[StyleData[StyleDefinitions -> "Default.nb"]],
                Cell[StyleData["StandardForm"],
                FontFamily -> ToString[fontFamily],
                FontSize -> ToExpression[fontSize]]
            }
        ],
        styleSheetName = FileNameJoin[
            {
                $UserBaseDirectory, 
                "SystemFiles", 
                "FrontEnd", 
                "StyleSheets", 
                "myStyle.nb"
            }
        ]
    },
    If[
    	FileExistsQ[styleSheetName], 
    	SetOptions[$FrontEnd,
    	DefaultStyleDefinitions -> "Default.nb"]
    ];
    Export[styleSheetName, styleNB];
    SetOptions[$FrontEnd, DefaultStyleDefinitions -> styleSheetName]
];

函数运行

1
2
3
4
5
setFont["字体名称", 字体大小]
比如：
setFont["Consolas", 12]
或者
setFont["Monaco", 13]

用法

将以上函数和运行的代码粘贴进一个.nb文档，运行即可修改字体。