Mathematicaでプロットする関数をリストで指定したり，Table関数を入れ子にして一つのグラフで描画すると，そのままだとすべての線が同一色になってしまう． これはEvaluate関数を使うと通常通り自動で色付けがされる． 例えば Plot[ Table[Sin[n*x], {n, 1,…