これは何の記事か
Mathematicaを快適に使う上でいつも冒頭で書いておきたい処理を自分のためにまとめて書いておく。Mathematicaは公式ドキュメントこそ多いものの、一般人による記事が少なく、コミュニティとして終わっている気がするので、ついでに誰かの助けになればいいな、などと思っている。
結論
まずは、自分がノートブックにコピペする用に処理をまとめて書いておく。ノートブックにコピペしたら、適切なところでcommand + shift + d
をおして、セルを分割してから実行しよう。
(* はじめから実行する処理 *)
SetOptions[EvaluationNotebook[], CellContext -> Notebook];
savefile =
FileNameJoin[{NotebookDirectory[],
TemplateApply[
"/savefiles/``_savefile.wl", {FileBaseName[NotebookFileName[]]}]}];
(* 実行したい時に実行する処理 *)
Save[savefile, "`*"]; (* savefileが本当に今のノートブックに対応したものかを確認せよ *)
Get[savefile]; (* savefileが本当に今のノートブックに対応したものかを確認せよ *)