Mathematicaで変数名を文字列として利用する

目的

Mathematica で変数名そのものを文字列として利用したいときがある。例えばグラフをファイルに出力するときに、グラフが入っている変数の変数名をそのままファイル名にしたいときなど。

方法

HoldForm関数やReleaseHold関数を使う。ここで、HoldForm関数は与えられた引数を未評価のまま出力する関数、ReleaseHold関数はHold関数の出力を評価する関数である。

例

グラフのプロットを変数に納めて、その変数名のファイルにグラフを出力してみよう。

plt = Plot[ x, {x, -1, 1} ];
Export[ ToString[ #1 ] <> ".png", ReleaseHold[ #1 ] ] & [ HoldForm[ plt ] ];

Export関数の第1引数は変数名pltに拡張子として.pngをつけた文字列になっていて、第2引数は未評価のまま渡されたHoldForm[ plt ]を評価したもの、つまりグラフそのものとなっている。注意点は、純関数の引数にpltを与えてExport関数の第1引数をToString[ HoldForm[ #1 ] ]としてしまわないことだ。こうしてしまうとうまくいかないのだが、理由はpltが評価された後にHoldForm関数に渡されることだと考えられる。